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

Function SumCifr(A : Longint) : Integer;
Begin
  If A>0 then SumCifr:=(A mod 10) +SumCifr(A div 10) else SumCifr:=0;
End;

var
  a,b,c,m:longint;
function f(l:longint):integer;
begin
  if l<>0 then f:=trunc(ln(abs(l))/ln(10))+1 else f:=1;
end;
begin
  write('Введите 3 числа:');
  readln(a,b,c);
  if f(a)>f(b) then m:=a else m:=b;
  if f(m)<f(c) then m:=c;
  writeln('В числе ',m,' количество цифр наибольшее');
  readln;
end.

Function GetNumCifr(A : Integer) : Integer;
Begin
  If A<=0 then GetNumCifr:=0 else GetNumCifr:=1+GetNumCifr(A div 10);
End;

function QDigit(n: integer): integer;
begin
  n := abs(n);
  if n <= 9
    then QDigit := 1
    else QDigit := trunc(ln(n) / ln(10))
end;
 
var a, b, c, m: integer;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  if QDigit(a) > QDigit(b) then m := a else m := b;
  if QDigit(c) > QDigit(m) then m := c;
  write('Наибольшее количество цифр в числе ', m);
  readln
end.