let n = Scanf.scanf " %d" (+) 0
let hs = Array.init n @@ fun _ -> Scanf.scanf " %d" (+) 0
let c, ans = ref 0, ref 0
let _ = Array.fold_left (fun p h -> if h <= p then (incr c; ans := max !ans !c) else c := 0; h) 0 hs |> ignore; Printf.printf "%d\n" !ans