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

var a, k : integer;
 
procedure get (arg : integer);
var i : integer;
Begin
i:=10;
k:=1;
repeat
        if (arg div i ) >= 1 then
                begin
                k:=k+1;
                i:=i*10;
                end
        else break;
until false;
End;
 
Begin
Writeln('Введите число...');
Readln(a);
get(a);
Writeln('Число символов : ', k);
Writeln('Нажмите Enter...');
Readln();
End.

function getNumber (arg : longint) : longint;
var rez : longint;
Begin
  arg := abs(arg); {это чтобы отрицательные числа тоже нормально обрабатывались!}
  rez := 0;
  repeat
     inc(rez);
     arg := arg div 10;
  until arg=0;
  getNumber := rez;
End;

var
  n:int64;
begin
  repeat
   write('n='); 
    readln(n);
  until n>0;
  writeln('Количество цифр в числе:',trunc(ln(n)/ln(10))+1);
end.

procedure get (arg : int64;var k:byte);
begin
arg:=abs(arg);
k:=0;
while arg>0 do
 begin
  arg:=arg div 10;
  inc(k);
 end;
end;
var a:int64;
    k:byte;
Begin
Writeln('Введите число...');
Readln(a);
get(a,k);
Writeln('Количество цифр=',k);
Writeln('Нажмите Enter...');
Readln
end.

k:=0;
while arg>10 do
 begin
  arg:=arg div 10;
  inc(k);
 end;
k:=k+1
end;