kr :: [Int] -> (Int, Int) -> Int
kr [h] x = fst x
kr (h:hs) x = if h >= head hs then kr hs (max (fst x) (snd x + 1), snd x + 1) else kr hs (fst x, 0)

main = do
    _ <- getLine 
    h <- map read . words <$> getLine :: IO [Int]
    print $ kr h (0,0)
