n = gets.to_i
h = gets.split.map(&:to_i)

ans = Array.new(n + 1, 0)
h.each_with_index do |x, i|
  prev = x
  c = 0
  ((i + 1)..h.size - 1).each do |x|
    if h[x] <= prev
      c += 1
      prev = h[x]
    end
  end
  ans[i] = c
end

puts ans.max
