[<AutoOpen>]
module Program

open System

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

let solve xs =
    let rec loop acc c = function
        | [] -> c :: acc
        | (a, b) :: xs ->
            if a >= b then
                loop acc (c + 1) xs
            else
                loop (c :: acc) 0 xs
    loop [] 0 xs

[<EntryPoint>]
let main _ =
    let n = read int
    let hs = reads int
    let xs = Seq.zip hs (List.tail hs) |> Seq.toList
    solve xs
    |> List.max
    |> printfn "%i"
    0