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

Var

digits: set of '0' ... '9';

s: string;

i, p, d, err: integer;

begin

digits : = ['0' ... '9'];

Write ('Введите строку: ') ; Readln (s) ;

p : = 0;

for i : = 1 to Length (s) do

if (s[i] in digits) then

begin Val (s[i], d, err) ; p : = p + d end;

Writeln ('Сумма цифр равна ', p)

end.

Тестовое решение:

Введите строку: Сегодня 17 декабря 2014 г. Находим сумму 7 цифр их этой строки.

Сумма цифр равна 22