为什么RE、TIE

var
  a:array[1..100000] of longint;
  n,i,x,j,max:longint;
begin
  read(n);
  for i:=1 to n do read(a[i]);
  i:=1;
  while i<>n do begin
  if a[i]<a[i+1] then begin
  i:=i+1;
  x:=x+1;
  if x>max then begin
  j:=x;
  max:=x;
  end;
  end
  else begin x:=0;i:=i+1;end;
  end;
  j:=j+1;
  write(j);
end.