[ChinYan]

Код:

function abc(s:string):integer;
var
i:integer;
 begin
for i:=1 to Length(s) do
 Result:=Result+StrToInt(s[i]);
end;

как-то так