let scan_int () = Scanf.scanf " %d" (fun x -> x)
let scan_array len read_func = Array.init len (fun _ -> read_func())
let print_int n = Printf.printf "%d\n" n

let () =
  let n = scan_int() in
  let h = scan_array n scan_int in
  let ans =
    let rec loop i curr ret =
      if i = n then ret
      else
        if h.(i-1) >= h.(i) then loop (i+1) (curr+1) (max ret (curr+1))
        else loop (i+1) 0 ret in
    loop 1 0 0 in
  print_int ans