Найти все трехзначные числа, сумма цифр которых равна заданному числу В — Pascal(Паскаль)

program z_number;
uses crt;
var CounterI, Number: word;
begin
 clrscr;
 repeat
  writeln('Введите число, которому должна быть равна сумма цифр трехзначного числа');
  writeln('Число должно быть больше или равно 1 и меньше или равно 27');
  readln(Number);
 until(Number >= 1) and (Number <= 27);
 
 writeln;
 writeln('Числа сумма цифр которых равна данному числу');
for CounterI := 100 to 999 do
  if (CounterI mod 10) + (CounterI div 10 mod 10) + (CounterI div 100) = Number then
   writeln(CounterI);
 readln;
end.