Напишите функцию, которая вычисляет количество цифр числа

Function kolich (a: integer):integer
Begin
Integer i;
I:=1
While (a div 10 > 0) do
Begin
i:=i+1;
a:=a div 10;
End;
Kolich:=i;
End