Найти число, встречающееся в матрице максимальное количество раз. Массив NxM состоит из случайных вещественных чисел — Pascal(Паскаль)

program Project2;
type
m1=array[1..5,1..5]  of real;
var   a:m1;
procedure Input(var g:m1);
var x,y:integer;
begin
randomize;
   for x:=1 to 5 do
   for y:=1 to 5 do
     begin
      a[x,y]:=random(5);;
      a[x,y]:=a[x,y]*100;
     end;
end;
 
procedure Output(var g:m1);
var x,y:integer;
begin
   for x:=1 to 5 do
   begin
   for y:=1 to 5 do
     begin
         Write(g[x,y]:1:2,' ')
     end;
     writeln;
     end;
end;
 
procedure Search(var g:m1);
var x,m,y,xx,yy:integer;
    el,max:real;
     k:boolean;
begin
   m:=1;
   k:=false;
   max:=0;
      for x:=1 to 5 do
      for y:=1 to 5 do
        begin
          el:=g[x,y];
           for xx:=1 to 5 do
           for yy:=1 to 5 do
             begin
                 if (el=g[xx,yy])  and (m=1) then
                  begin
                   if (x<>xx) or (y<>yy) then
                     begin
                       max:=el;
                       k:=true;
                       m:=2;
                     end;
                  end
                 else
                    if (el=g[xx,yy])and (el>max) then
                       if (x<>xx) or (y<>yy) then
                         begin
                            max:=el;
                         end;
             end;
        end;
    if k=true then
     WriteLn('max=',max:1:4)
    else
     WriteLn('no max>1 raza');
end;
 
begin
Input(a);
WriteLn;
Output(a);
WriteLn;
Search(a);
ReadLn;
end.