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

Var

a:longint;

s:string;

begin

writeln ('Введите целое положительное число');

readln (a);

Str (a, s);

writeln ('Количество цифр в числе равно ', length (s));

end.

Тестовый пример:

Введите целое положительное число

23434232

Количество цифр в числе равно 8