Даны 2 числа, определить у какого числа сумма цифр больше (через процедуру)

procedure summa(a:integer;var s:integer);
var b:integer;
begin
b:=a;
s:=0;
while b>0 do
 begin
  s:=s+b mod 10;
  b:=b div 10
 end;
end;
var m,n,s1,s2:integer;
begin
writeln('Введите 2 числа');
readln(m,n);
summa(m,s1);
summa(n,s2);
writeln('Сумма цифр числа ',m,'=',s1);
writeln('Сумма цифр числа ',n,'=',s2);
if s1>s2 then write('Первая сумма больше')
else if s2>s1 then write('Вторая сумма больше')
else write('Суммы одинаковые')
end.

procedure summa(a: integer; var s: integer);
var
  b: integer;
begin
  b := a;
  s := 0;
  while b > 0 do
  begin
    s := s + b mod 10;
    b := b div 10
  end;
end;
 
var
  m, n, s1, s2: integer;
 
begin
  writeln('Введите 2 числа');
  readln(m, n);
  summa(m, s1);
  summa(n, s2);
  writeln('Сумма цифр числа ', m, '=', s1);
  writeln('Сумма цифр числа ', n, '=', s2);
  case sign(s1 - s2) of
    +1 : write('Первая сумма больше');
    -1 : write('Вторая сумма больше');
  else   write('Суммы одинаковые')
  end;
end.