Дано натуральное число n, определить количество цифр в числе n и сумму всех его цифр. Значение n ввести с клавиатуры.

Для вычисления суммы цифр использую последовательное деление числа "n" без остатка и с остатком, т.е.

Begin
Writeln ('Введите число n');
Read (n);
x1:= (n mod 10);
x2:= (n div 10) mod 10;
x3:= (n div 100) mod 10;
x4:= (n div 1000);
sum:=x1+x2+x3+x4;
writeln ('sum= ', sum);
read;
end.

А как определить количество цифр в числе? И подскажите, как будет выглядеть эта программа, если число "n" m-значное число.