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

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 : )