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

var  a:longint;  s:string;begin  writeln('Введите целое положительное число');  readln(a);  Str(a,s);  writeln('Количество цифр в числе равно ',length(s));end.Тестовый пример:Введите целое положительное число23434232Количество цифр в числе равно 8