Написать программу, которая вычисляет сумму двузначных чисел, у которых 1 число больше 2

Var a,a1,a2,s: integer;
begin
readln(a);
a1:=a div 10;
a2:=a mod 10;
if a1>a2 then 
begin
s:=a1+a2;
writeln(s);
end
end.