let read f = stdin.ReadLine() |> f
let reads f =  stdin.ReadLine().Split() |> Array.map f

let _ = read int
let hs = reads int |> Array.toList
let f xs =
    let rec loop xs acc m =
        match xs with
        | [] -> m
        | [_] -> m
        | y::ys when y >= ys.Head -> loop ys (acc+1) (max m (acc+1))
        | y::ys -> loop ys 0 m
    loop xs 0 0

printfn "%d" (f hs)