напишите плиз прогу...

напишите плиз прогу срочно (на Паскале) которая из 2-хзначных чисел выводит такие, сума цифр которых одинакова. например: 12 и 21 и такдалее

 

Program Pr1;
uses crt;
var i,n,a,b:integer;
mas:array[10..99] of integer;
begin
for i:=10 to 99 do mas:=i div 10+i mod 10;
for i:=10 to 98 do
for a:=i+1 to 99 do if mas=mas[a] then writeln(a,' ',i);
end.