написать функцию нахождения кол-ва цифр через рекурсию. Паскаль. Рекурсия.Через функцию.

var a:integer;
function k(n:integer):integer;
begin
if n<10
 then k:=1
 else k:=k(n div 10)+1;
end;
begin
write('a = ');
readln(a);
writeln('Количество цифр = ',k(a));
end.

Пример:
a = 134652
Количество цифр = 6