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

спасибо огромное)

Достаточно кнопочки и звездочек, выражающих размер "спасибо"))

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