Даны три целых числа. Определите, у которого из них больше сумма цифр. Подсчет суммы цифр организуйте через подпрограмму

function summa(n:integer):integer;
var m,s:integer;
begin
s:=0;
m:=abs(n);
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10
 end;
summa:=s
end;
var a,b,c,mx:integer;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
if summa(a)>summa(b) then mx:=a else mx:=b;
if summa(c)>summa(mx) then mx:=c;
write('Наибольшая сумма цифр в числе ',mx);
end.