Подсчитать количество цифр в заданном натуральном числе — Pascal(Паскаль)

program N1{подсчитать кол-во цифр в заданном натуральном числе};
var N:integer;
function KOL(N:integer):integer;
begin
    if N>9 then KOL:=KOL(N mod 10)+KOL(N div 10)
	   else KOL:=1;
end;
BEGIN
    Write('Введите N');ReadLn(N);
    WriteLn(KOL(N));
    ReadLn;
END.