Даны 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);
  case sign(s1 - s2) of
    +1 : write('Первая сумма больше');
    -1 : write('Вторая сумма больше');
  else   write('Суммы одинаковые')
  end;
end.