Дана строчка. Найти сумму записанных в строке чисел.

program zz1;
var s:string; // задаем переменную строкового типа
i, m, k:integer; // задаем переменные целого типа
begin
write( введите строчку );
read(s); // вводим с клавиатуры строку
for i:=1 to length(s) 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 k:=strtoint(s[i]);m:=m + k;end; // переводим символ в число и прибавляем его к сумме
writeln( сумма цифр в начальной строке = , m); // выводим ответ
end.