Дано целое N (2 to 10^6) и N вещественных чисел. Выяснить, идут ли числа в порядке строго возрастания — Pascal(Паскаль)

var
  n,i:longint;
  a,b:real;
  f:boolean;
begin
  writeln('vvedite kolichestvo chisel');
  readln(n);
  f:=true;
  for i:=1 to n do
  begin
    writeln('vvedite ',i,' chislo');
    readln(a);
    (*(i > 1) - потому что при i = 1 число b ещё неизвестно.*)
    if (i > 1) and (a<=b) then begin
      f:=false;
      Break;
    end;
    b:=a;
  end;
  if f then
    writeln('^');
  else
    writeln('not ^');
  readln;
end.