Паскаль. Составить программу, в которой среди двузначных чисел печатаются те числа, которые равны сумме своих цифр, используя цикл с параметром(счетчиком).

Program z;
var i:integer;
begin
 for i:=10 to 99 do
 begin
  if i=((i mod 10)+(i div 10)) then writeln(i);
 end;
end.

Я прогнал программу, таких чисел нет среди двузначных