строки, Описать функцию sum без параметров, которая находит сумму цифр в строк Опции

[Lis]

Добрый вечер. Помогите пожалуйста!
Описать функцию sum без параметров, которая находит сумму цифр в строке.

[sheka]

function sum:integer;
var
  i : byte;
begin
  sum := 0:
  for i := 1 to length(s) do
    if s[i] in [0..9] then
      inc(sum,strtoint(s[i]);
end;