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

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