Определить является ли заданная последовательность возрастающей- Pascal(Паскаль)

uses crt;
var n,i,a,b:integer;
    f:boolean;
begin
clrscr;
repeat
write('Размер последовательности больше1 n=');
readln(n);
until n>1;
writeln('Введите последовательность');
readln(a);
f:=true;
for i:=2 to n do
 begin
  readln(b);
  if b<=a then f:=false;
  a:=b;
 end;
if f then write('Последовательность возрастающая')
else write('Последовательность не возрастающая');
readln
end.