Определить, в каком из данных двух целых чисел больше цифр — Pascal(Паскаль)

Program _4_2; {Opredelaem v kakom iz dvuh chisel bolshe cifr}
uses crt;
var
 n1,n2:word;

 function kol_cifr(n:word{mozha izmenat vnutri}):byte;
 var i,kol:word;
 begin
  kol:=0;
 repeat
  n:=n div 10;
  kol:=kol+1;
 until n=0;
  kol_cifr:=kol;
 end;

begin
 clrscr;
 writeln('Vvedite pervoe chislo.');
 readln(n1);
 writeln('Vvedite vtoroe chislo.');
 readln(n2);
 If kol_cifr(n1)>kol_cifr(n2) then writeln('V pervom bolshe cifr.');
 If kol_cifr(n1)<kol_cifr(n2) then writeln('Vo vtorom bolshe cifr.');
 If kol_cifr(n1)=kol_cifr(n2) then writeln('Porovnu.');
 readln;
end.