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

var a, b : integer;
begin

cls;
write ( Введите трёхзначное число: );
readln ( a );
writeln ( Трёхзначные числа, меньше заданного числа: );
for b := 100 to 999 do // так как все числа от 100 до 999, включая 100 и 999, являются трёхзначными.
begin
if b lt; a then writeln ( b );
end;
end.