open System

let N =stdin.ReadLine()|>int
let H =stdin.ReadLine().Split()|>Array.map int
[<EntryPoint>]
let sf argv = 
    let rec fn i cur ans =
        if i = N - 1 then max ans cur elif H.[i+1]<=H.[i] then fn (i + 1) (cur + 1) ans else fn (i+1) 0 (max ans cur)
    printf "%d" (fn 0 0 0)
    0 

