Дана последовательность действительных чисел а1, а2, ..., аn. Выяснить, будет ли она возрастающей (программа Паскаль)

var
  a:array[1..100] of real;
  i,n: byte;
  f: boolean;
begin
  readln(n);
  for i:=1 to n do
    readln(a[i]);
  f:=true;
  for i:=2 to n do
    if (a[i]>a[i-1]) and (f=true) then f:=true
      else f:=false;
  writeln('последовательность возрастающая: ',f);
  readln;
end.