Даны два натуральных числа. Выяснить в каком из них сумма цифр больше.Определить функцию для расчета суммы цифр натурального цикла — Pascal(Паскаль)

uses crt;
var A,B:longint;
function SumCifr(n:longint):integer;
var u,sum:integer;
begin
sum:=0;
while n>0 do
    begin
       u:=n mod 10;
       sum:=sum+u;
       n:=n div 10;
    end;
SumCifr:=sum;
end;
begin
clrscr;
write('A=');readln(A);
write('B=');readln(B);
if SumCifr(A)>SumCifr(B) then
writeln('Summa cifr bolshe v chisle A')
else if SumCifr(A)<SumCifr(B) then
writeln('Summa cifr bolshe v chisle B')
else writeln('Summa cifr ravna');
readln;
end.