信息学奥林匹克竞赛-统计最长天数

炎热的夏日，KC非常的不爽。他宁可忍受北极的寒冷，也不愿忍受厦门的夏天。最近，他开始研究天气的变化。他希望用研究的结果预测未来的天气。

经历千辛万苦，他收集了连续N（1<=N<=10^7）天的最高气温数据。

现在，他想知道最高气温一直上升的最长连续天数。

输入格式：
第1行：一个整数N。1<=N<=10^7
第2行：N个空格隔开的整数，表示连续N天的最高气温。0<=最高气温<=10^9。

输出格式：
第1行：一个整数，表示最高气温一直上升的最长连续天数。

输入：

10

1 2 3 2 4 5 6 8 5 9

输出：

5

var
i,j,n,max,counter:longint;
a:array[1..10000000] of longint;

begin
	assign(input,'in.txt');
	reset(input);
	readln(n);
	for i:=1 to n do read(a[i]);