строки, Описать функцию 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;
 

[Lapp]

Условие в цикле можно заменить на вот такое:

    if s[i] in [1..9] then

- и делать немного меньше лишнего ))

[sheka]

3 минуты искал разницу..

[Lis]

спасибо вам!