Найти количество цифр данного натурального числа

function koll(Var c:longint):byte;
Var
 k,l:integer;
begin
l:=0;
repeat
 k:=c mod 10;
 inc(l);
 c:=c div 10;
until c=0;
koll:=l;
end;

write(koll(n));

var n:integer;
function koll(Var c:longint):integer;
Var
 k,l:integer;
begin
l:=0;
repeat
 k:=c mod 10;
 inc(l);
 c:=c div 10;
until c=0;
koll:=l;
end;
 
 
begin
writeln('введитеn ');
readln(n);
write(koll(n));
readln;
end.

l:=0;
repeat
 k:=c mod 10;  
 inc(l);         зачем тут нужно увеличивать на единицу ?
 c:=c div 10; 0 делим на 10 ? 
until c=0;

k:=c mod 10;

function koll(Var c:longint):integer; //в функцию в переменную с загоняем число
Var
 k,l:integer;
begin
l:=0; //счетчик цифр
repeat
 k:=c mod 10; //к присваиваем остаток от деления на 10
 inc(l); //увеличиваем счетчик
 c:=c div 10; //c присваиваем целое от деления на 10. если раньше было 12345, то станет 1234
until c=0; //повторяем пока у нас число не станет ровно 0.
koll:=l;
end;