Дана строчка состоящая из букв и цифр. Сложить все цифры в

program zz1;
var s:string;
i,d,k,g,c:integer;
begin
read(s); //вводим исходную строку
d:=length(s); //определяем длину начальной строчки
for i:=1 to d do //перебираем все буковкы от первой до последней
if (s[i]=0)or(s[i]=1)or(s[i]=2)or(s[i]=3)or(s[i]=4)or(s[i]=5)or(s[i]=6)or(s[i]=7)or(s[i]=8)or
(s[i]=9) then begin val(s[i],k,g);c:=c+k;end; //проверяем, если знак из строки равен цифре, то переводим эту цифру из строкового формата в числовой формат и добавляем это число к сумме
writeln(приобретенная сумма цифр строки - ,c); //выводим ответ
end.