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

function kol(n:integer):integer;var   kol1:integer;begin   kol1:=0;   repeat      kol1:=kol1+1;      n:=n div 10;   until n=0;   kol:=kol1;end;