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

Хоть какое двухзначное число записывается в виде 10*a+b, где а - число десятков (старшая цифра), b - число единиц (младшая цифра).
Тогда условие будет иметь вид: (a+b=n) либо (a=n) либо (b=n), где а изменяется от 1 до 9, b изменяется от 0 до 9.

var
  n, a, b: integer;

begin
  Write('Введите число n -gt; '); Readln(n);
  for a := 1 to 9 do
    for b := 0 to 9 do
      if (a + b = n) or (a = n) or (b = n) then Write(a, b, ' ');
  Writeln
end.

Тестовое решение:
Введите число n -gt; 7
16 17 25 27 34 37 43 47 52 57 61 67 70 71 72 73 74 75 76 77 78 79 87 97

Держи! Код на прикрепленном изображении.