Написать программку в паскаль "отыскать сумму цифр сколь угодно значного целого

program zz1;

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

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

begin

write( введите сколь угодно значное целое число );

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

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

k:=k + ord(s[i])-48; // берем символ из строчки, переводим его в числовой код, вычитаем 48, чтобы знак стал соответствовать числу знака

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

end.