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

var a, b: integer; function sum(c: integer): integer; var s: string;     i, r: integer; begin      r := 0;      s := inttostr(c);      for i := 1 to length(s) do          r := r + strtoint(s[i]);      result := r; end; begin      readln(a, b);      if (sum(a) > sum(b)) then writeln('A > B')         else if (sum(a) = sum(b)) then writeln('A = B')                 else writeln('A < B'); end. I ♥ functions :)