main = do
  getLine
  h <- map read.words<$>getLine :: IO [Int]
  print$ solve h 0 0

solve (a:b:h) acc ma
  | a >= b = solve (b:h) (acc+1) (max ma$acc+1)
  | otherwise = solve (b:h) 0 (max ma acc)
solve _ _ ma = ma
