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