Даны два двузначных числа.У наибольшего из чисел найти сумму цифр,если числа равны,то выдать об этом сообщение — Pascal(Паскаль)

if a<>b then
begin
if a>b then c:=a
else c:=b; 
sum:=0;
repeat
sum:=sum+c mod 10;
c:=c div 10;
until c=0;
end
else writeln('Числа равны');