Найти элемент, в значении которого больше всего разрядов

uses crt;
var
 a: array[1..5,1..5] of integer;
 i, j, fi, fj, rFind, rCur, val: integer;
 
 function findr(val: integer): integer;
 var
  r: integer;
 begin
  r := 0;
  while val <> 0 do
   begin
    val := val div 10;
    r := r + 1;
   end;
  findr := r;
 end;
 
begin
 clrscr;
 Randomize;
 for i := 1 to 5 do
  begin
   for j := 1 to 5 do
    begin
     a[i, j] := trunc(random(random(10000)));
     write(a[i, j]:10, ' ');
    end;
   writeln;
  end;
 writeln;
 fi := 1;
 fj := 1;
 rFind :=  findr(a[1, 1]);
 for i := 1 to 5 do
  for j := 1 to 5 do
   begin
    rCur := findr(a[i, j]);
    if rCur > rFind then
     begin
      fi := i;
      fj := j;
      rFind := rCur;
     end;
   end;
 
 writeln('(i = ', fi, '; j = ', fj, ')');
 readln;
end.

const n = 5;
var 
  a : array[1 .. n, 1 .. n] of integer;
  i, j : integer;
  max_i, max_j : integer;
  
begin
  max_i := 1; max_j := 1;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := trunc(random(random(10000)));
      write(a[i, j]:7);
      
      if trunc(Log10(a[i, j])) > trunc(log10(a[max_i, max_j])) then
      begin
        max_i := i; max_j := j;
      end;
    end;
    writeln;
  end;
  writeln('i = ', max_i, ' j = ', max_j);
end.