Ввести число, вывести на экран количество разрядов этого числа и сумму цифр этого числа. - Pascal

Нужно создать программу для того, чтобы работала по схеме: ввести число, вывести на экран количество разрядов этого числа и сумму цифр этого числа.

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

readln(n);
s:=0;k:=0;
while n>0 do
 begin
  s:=s+n mod 10;
  k:=k+1;
  n:=n div 10;
 end;
write('Количество разрядов=',k,'  сумма цифр=',s);

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

Строка readln(n); считывает число с консоли и сохраняет его в переменной n.
Переменные s и k инициализируются как 0. s будет хранить сумму цифр числа, а k - количество разрядов числа.
Запускается цикл while n > 0 do, который будет выполняться до тех пор, пока значение n больше 0.
Внутри цикла выполняется операция s := s + n mod 10;, которая добавляет последнюю цифру числа к сумме цифр.
Затем выполняется операция k := k + 1;, которая увеличивает счетчик количества разрядов на 1.
Наконец, значение n делится на 10 с помощью оператора //, что приводит к делению числа на его последнюю цифру.
После завершения цикла, выводится сообщение с количеством разрядов и суммой цифр числа с помощью функции write.