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

Var

a:longint;

s:string;

begin

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

readln (a) ;

Str (a, s) ;

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

end.

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

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

23434232

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