Нужно составить программу определения количества цифр во введенном числе программе кумир

Var n,c:integer;
procedure Kol(n: integer; var c:integer);
begin while n > 0 do
begin n := n div 10;
c += 1;
end;
end;
begin
readln(n);
Kol(n, c);
write(c);
End.