Pascal составить программу поиска трех значных чисел, сумма цифр которого равна n

Var
  i, n, s, k: integer;
begin
  readln(n);
  for i := 100 to 999 do
  begin
     s := 0; k := i;
     while  k > 0 do
     begin
        s := s + k mod 10;
        k := k div 10;
     end;
     if s = n then
        writeln(i);
  end;
end.