let n = stdin.ReadLine() |> int
let h = stdin.ReadLine().Split() |> Array.map int64 |> Array.toList 

let rec f hairetu j i =
 match hairetu with
 | hd :: sd :: tl -> if hd >= sd then f (sd :: tl) (max j (i+1)) (i + 1)
                     else f (sd :: tl) j 0
 | _ -> j

f h 0 0
|>stdout.WriteLine