Построить множество трехзначных чисел, сумма цифр которых равна N (1<N<27)

program OP_Test13;
uses crt;
var
q,n,i: integer; //задаем переменные типа integer
p, o: set of byte; //объявляем множество типа byte
begin
p := [1..27]; //задаем множество числа С
 
write('введите число N в диапазоне от 1 до 27 : ');
readln(n);
clrscr;
if n in p then else //защита "от дурака": если число N не входит в множество от 1 до 27
begin
TextColor(12); //красный
writeln('Введите число N в диапазоне от 1 до 27!!');
end;
begin //высчитываем сумму цифр трехзначного чисела (это числа в диапазоне 100 до 999)
writeln('Множество трехзначных чисел, сумма цифр которых равна ',n, ':');
write('[');
for i := 100 to 999 do //цикл для трехзначных чисел:
if i mod 10 + (i div 10)mod 10 + i div 100 = n then //условие, если сумма цифр трехзначного чисела=N, то выводим это число
write(i,',');
write(']');
end;
readln;
end.

var
  a:set of integer;
  i, n:integer;
begin
  n:=ReadInteger('n=');
  a:=[];
  for i:=100 to 999 do
    if i mod 10+i div 100+i mod 100 div 10=n then include(a,i);
  writeln(a);
end.