Ввести целое число и найти сумму его цифр(1234)Паскаль

program zz1;
var a, n, s : integer; //задаем переменные целого типа
begin
write('введите заданное число n ');
read(n); // вводим заданное число с клавиатуры
while n > 0 do // организуем цикл, пока в заданном числе имеются цифры
begin
a := n mod 10; // получаем последнюю цифру заданного числа
n := n div 10; // отбрасываем последнюю цифру заданного числа
s := s + a; // прибавляем полученную последнюю цифру к сумме
end;
writeln('сумма цифр заданного числа = ',s); // выводим ответ
end.