Продублировать строку матрицы, содержащую её максимальный элемент

procedure TForm1.Button2Click(Sender: TObject);
Var
  M,N,i,j:Integer;
Begin
  Max:=0;
  N:=StrToInt(Edit1.Text);
  M:=StrToInt(Edit2.Text);
  StringGrid1.ColCount:=M;
  StringGrid1.RowCount:=N;
  Randomize;
  For i:=0 To M-1 Do
    Begin
      For j:=0 To N-1 Do
        Begin
      StringGrid1.Cells[i,j]:=IntToStr(Random(10));
      If StrToInt(StringGrid1.Cells[i,j]) > Max Then
        Max:=StrToInt(StringGrid1.Cells[i,j]);
      A[i,j]:=StrToInt(StringGrid1.Cells[i,j]);
        End;
    End;
End;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  N,M,i,j,i_new,j_new,k:Integer;
begin
  j:=1;
  M:=StringGrid1.ColCount;
  N:=StringGrid1.RowCount;
  For i:=1 To M-1 Do
    Begin
      For j:=1 To N-1 Do
        Begin
          StringGrid2.Cells[i,j]:=IntToStr(A[i,j]);
            If A[i,j] = Max Then
            Begin
            StringGrid2.RowCount:=StringGrid2.RowCount+1;
            StringGrid2.Rows[i].Insert(i+1,StringGrid2.Rows[i].Text);
            End;
        End;
      If A[i,j] = Max Then Break;
    End;
  For i_new:=i To M-1 Do
      For j_new:=j To N-1 Do
          StringGrid2.Cells[i_new,j_new]:=IntToStr(A[i_new,j_new]);
  
end;

procedure TForm1.Button1Click(Sender: TObject);
  Var
  M,N,i,j:Integer;
Begin
  N:=StrToInt(Edit2.Text);
  M:=StrToInt(Edit1.Text);
If (N Mod 2 = 0) And (M Mod 2 = 0) Then
  Begin
    StringGrid1.ColCount:=M;
    StringGrid1.RowCount:=N;
    Randomize;
  For i:=0 To M-1 Do
    Begin
      For j:=0 To N-1 Do
        Begin
      StringGrid1.Cells[i,j]:=IntToStr(Random(10));
      A[i,j]:=StrToInt(StringGrid1.Cells[i,j]);
        End;
    End;
End
  Else ShowMessage('Числа не четные!!!!!!!!!');
End;
 
Procedure TForm1.Button2Click(Sender: TObject);
Var
  M,N,i,j,HalfM,HalfN,Temp:Integer;
Begin
  M:=StringGrid1.ColCount;
  N:=StringGrid1.RowCount;
  HalfM:=M Div 2;
  HalfN:=N Div 2;
For i:=1 To HalfM Do
  For j:=1 To HalfN Do
      Begin
        Temp:=A[i,j];
        A[i,j]:=A[i+HalfM,j+HalfN];
        A[i+HalfM,j+HalfN]:=Temp;
      End;
 
  For i:=0 To M-1 Do
    Begin
      For j:=0 To N-1 Do
        StringGrid2.Cells[i,j]:=IntToStr(A[i,j]);
    End;
End;

max:=StrToInt(StringGrid1.Cells[1,1]);