Дан текст..

[Господин Никто]

Добрый вечер. Помогите решить,пожалуйста.

Дан текст,представляющий собой десятичную запись целого числа.
Вычислить сумму цифр этого числа.

Если можно,с алгоритмом. нет- все равно, спасибо за помощь.

[Stilet]

http://www.programmersforum.ru/showthread.php?t=87626
Пример Сержа.

[Serge_Bliznykov]

если исходно уже дан текст, то можно написать проще.
вот так:

var i, sum : integer;
   s : string;
begin
    WriteLn('vvedite stroku (chislo):');
    Readln(s);
    sum := 0;
    for i:=1 to Length(s) do
       if s[i] in ['0'..'9'] then
         sum := sum + ( ord(s[i]) - ord('0'));
    WriteLn(' summa = ', sum);
    Readln;
end.

[Господин Никто]

спасибо за помощь