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

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) gt; sum(b)) then writeln('A gt; B')
        else if (sum(a) = sum(b)) then writeln('A = B')
                else writeln('A lt; B');
end.

I functions :)