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

var a, b : integer;

begin

cls;

write ('Введите трёхзначное число: ');

readln (a);

writeln ('Трёхзначные числа, меньше заданного числа: ');

for b : = 100 to 999 do / / так как все числа от 100 до 999, включая 100 и 999, являются трёхзначными.

begin

if b < a then writeln (b);

end;

end.