Вывести цифру, наиболее часто встречающуюся в массиве

const
   Nmax=10;
   type
   mas2=array[1..Nmax,1..Nmax] of extended;
   mas1=array[1..Nmax] of extended;
var
  Form1: TForm1;
  A:mas2;
  B,Y:mas1;
  N,M,i,j:integer;
  s:extended;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
N:=3;
M:=3;
edit1.Text:=floattostr(n);
edit2.Text:=floattostr(m);
stringgrid1.ColCount:=m+1;
stringgrid1.rowCount:=n+1;
    stringgrid1.cells[0,0]:='masiv A';
for i:=1 to n do
   stringgrid1.cells[0,i]:='i='+inttostr(i);
for j:=1 to m do
   stringgrid1.cells[j,0]:='j='+inttostr(j);
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
n:=strtoint(edit1.Text);
m:=strtoint(edit2.Text);
stringgrid1.ColCount:=m+1;
stringgrid1.rowCount:=n+1;
 
    for i:=1 to n do
   stringgrid1.cells[0,i]:='i='+inttostr(i);
for j:=1 to m do
   stringgrid1.cells[j,0]:='j='+inttostr(j);
end;
 
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
randomize;
for i:=1 to n do
for j:=1 to m do
  stringgrid1.cells[j,i]:=inttostr(random(10));
 
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 
(какой должен быть тут текст программы???)
 
end;
 
end.

procedure TForm2.BitBtn3Click(Sender: TObject);
var cnt_arr:array[1..Nmax,1..Nmax] of integer; //массив значений
tmp,i_ar,j_ar,max:integer;
begin
  for i:=0 to n do for j:=0 to m do cnt_arr[i,j]:=0;
  for i_ar:=1 to n do
  begin
    for j_ar:=1 to m do
    begin
      for i:=1 to n do
      begin
        for j:=1 to m do
        begin
          if strtoint(stringgrid1.Cells[j_ar,i_ar])=strtoint(stringgrid1.Cells[j,i]) then cnt_arr[i_ar,j_ar]:=cnt_arr[i_ar,j_ar]+1;
        end;
      end;
    end;
  end;
  max_point:=strtoint(stringgrid1.Cells[1,1]);
  max:=0;
  for i:=1 to n do for j:=1 to m do
    if cnt_arr[i,j]>max then
    begin
      max:=cnt_arr[i,j];
      max_point:=strtoint(stringgrid1.Cells[j,i])
    end;
  label1.Caption:='наиболее часто встречается число: '+inttostr(max_point)+' Оно встречается '+inttostr(max)+' раз';
  stringgrid1.Repaint;
end;

procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
const
clPaleGreen = TColor($CCFFCC);
var
  float : Extended;
  errorPos : Integer;
begin
  val(stringgrid1.cells[acol,arow],float,errorpos);
  if errorpos=0 then
  begin
    if strtoint(stringgrid1.cells[acol,arow])=max_point then
    begin
      StringGrid1.canvas.brush.Color:=clPaleGreen;
      StringGrid1.Canvas.FillRect(Rect);
      StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
    end;
  end;
end;

label1.Caption:='наиболее часто встречается число: '+inttostr(max_point)+' Оно встречается '+inttostr(max)+' раз';

memo1.Lines.Add('наиболее часто встречается число: '+inttostr(max_point)+' Оно встречается '+inttostr(max)+' раз');