Дано целое число. Найти в этом числе количество цифр, сумму чисел,

program digits;
var i, k, s, n, n1: integer;
// i параметр цикла, k количество цифр,
// s сумма цифр, n - вводимое число, n1 - копия числа.

begin
writeln(Введите число);
readln(n);
n1:= n; 

while n gt; 0 do // определение количества цифр числа n
begin
n:= n div 10;
k:= k + 1;
end;
writeln (Количество цифр: , k);

s:= n1 mod 10; // определение заключительней числа

for i:= 1 to k - 1 do //определение других цифр и их суммы
begin
n1:= n1 div 10;
s:= s + n1 mod 10;
end;

writeln(Сумма цифр: , s);
writeln(Среднее арифметическое цифр: , s / k: 6:2)
end.