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

Program t2;
 var
  i,A:integer;
begin
 writeln('Enter A');
 readln(A);
 For i:=10 to 99 do
  begin
   if (i div 10) + (i mod 10) = A  then writeln(i);
  end;
  readln;
end.