Найти все целые трехзначные числа, которые меньше заданного числа. с цикла с послеусловием

Var a,b,c:integer;
beginb:=100;
writeln('введите число');
readln(a);
repeatif (a>b) then writeln(b);
b:=b+1;
until (b>999);
end.