Помогите пожалуйста. из всех двузначных чисел вывести на экран те из

(Если нужна программка, то вот)
program chisla;
uses crt;
var a,b,f,d,s : integer;
begin
Write('Введите число A: ');
readln(a);
if (alt;=18) and (agt;=1) then 
begin
for b:=10 to 99 do
begin
f:=b div 10;
d:=b mod 10;
s:=f+d;
if s=a then write(b,' ');
end;
end
else
Writeln('Введите число от 1 до 18');
end.

45 36 85 93 65 22 ответ