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

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