Найти сумму цифр любого числа с помощью String

program zz1;

var s:string; / / задаем переменную строкового типа

i, p, k:integer; / / задаем переменные целого типа

begin

write (' введите заданное число ');

read (s); / / вводим с клавиатуры строку

for i:=1 to length (s) do / / организуем цикл, в котором переберем все символы от первого до последнего

begin

p:=strtoint (s[i]); / / преобразуем цифру числа из строкового типа в числовой

k:=k + p; / / прибавляем цифру из числа к сумме

end;

write (' сумма цифр введенного числа = ', k);

end.