Вводяться числа до первого отрицательного, определить является ли последовательность чисел строго возрастающей — Pascal(Паскаль)

uses crt;
var a,b,i:integer;
    f:boolean;
begin
clrscr;
writeln('Введите не менее 2 неотрицательных чисел, окончание ввода-отрицательное');
f:=true;
i:=1;
readln(a);
repeat
readln(b);
i:=i+1;
if(b>=0)and(b<=a) then f:=false;
a:=b;
until b<0;
if i<3 then write('Вы не ввели последовательность')
else
 begin
  if f then write('Последовательность строго возрастающая')
  else write('Это не строго возрастающая последовательность ');
 end;
readln
end.