Дана строка, в которой нет русских букв. Написать подпрограмму, которая каждое число в строке заменит на сумму цифр числа (под числом понимается последовательность цифр отделенная пробелами или стоящая в конце или начале строки, все числа целые, не отрицательные).
Использовать заголовок:
procedure Zamena(var s: string);
На Паскаль АВС