Определить сумму цифр числа - Pascal

Всем, привет нужна помощь: С клавиатуры вводится длинное целое число, не менее 50 цифр. Определить сумму цифр данного числа Зарание спасибо!

Листинг программы

var n:string;
     j,i,s,k:integer;
begin
 
s:=0;
readln(n);
for i:=1 to length(n) do
s:=s+ord(n[i])-ord('0');
write(s);
end.

Объяснение кода листинга программы

Объявляется переменная n с типом string, а также переменные j, i, s, k с типом integer.
Присваивается значение 0 переменной s.
Считывается введенная пользователем строка и сохраняется в переменной n.
Запускается цикл for, который проходит по каждому символу в строке n (от 1 до длины строки).
Для каждого символа строки происходит следующее:
- Вычисляется целочисленное значение каждого символа, вычитая из его ASCII-кода ASCII-код символа '0'.
- Полученное значение добавляется к переменной s.
Выводится значение переменной s, которое является суммой цифр введенного числа.