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

procedure TForm1.Button3Click(Sender: TObject);
var A:Matr;
  i,j,max,min,n,mn,mx:integer;
  tmp:integer;
begin
mn:=A[1,1]; mx:=A[1,1];
min:=1; max:=1;
  for i:=1 to n do for j:=1 to n do
  begin
    if A[i,j]<mn then
    begin
      mn:=A[i,j];
      min:=i;
    end;
    if A[i,j]>mx then
    begin
      mx:=A[i,j];
      max:=i;
    end;
  end;
 
  for j:=1 to n do
  begin
    tmp:=A[min,j];
    A[min,j]:=A[max,j];
    A[max,j]:=tmp;
  end;
 
  for max:=1 to n do for j:=1 to n do
    StringGrid2.Cells[j,max]:=IntToStr(A[max,j]);
 
end;

 procedure TForm1.FormCreate(Sender: TObject);
var n,i: integer;
begin
  n:=3;
  Edit1.Text:=FloatToStr(n);
 
  StringGrid1.ColCount:=n+1;
  StringGrid1.RowCount:=n+1;
  StringGrid2.ColCount:=n+1;
  StringGrid2.RowCount:=n+1;
 
  StringGrid1.Cells[0,0]:='Матрица А';
  StringGrid2.Cells[0,0]:='Новая А';
 
  for i:=1 to n do
  begin
    StringGrid1.Cells[0,i]:='i='+intToStr(i);
    StringGrid1.Cells[i,0]:='j='+intToStr(i);
    StringGrid2.Cells[0,i]:='i='+intToStr(i);
    StringGrid2.Cells[i,0]:='j='+intToStr(i);
  end;
 
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
  for i:=StringGrid1.FixedRows to StringGrid1.RowCount-1 do
  for j:=StringGrid1.FixedCols to StringGrid1.ColCount-1 do
  StringGrid1.Cells[i,j]:=IntToStr(random(60)-30);
end;

 for max:=1 to n do for j:=1 to n do
    StringGrid2.Cells[j,max]:=IntToStr(A[max,j]);
 
end;

for i:=StringGrid1.FixedRows to StringGrid1.RowCount-1 do
for j:=StringGrid1.FixedCols to StringGrid1.ColCount-1 do
StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);

procedure TForm1.Button3Click(Sender: TObject);
var A:Matr;
  i,j,max,min,n,mn,mx:integer;
  tmp:integer;
begin
 
 <ТУТ НАДО ЗАПОЛНИТЬ МАТРИЦУ A>
 
mn:=A[1,1]; mx:=A[1,1];
min:=1; max:=1

for max:=StringGrid2.FixedRows to StringGrid2.RowCount-1 do
  for j:=StringGrid2.FixedCols to StringGrid2.ColCount-1 do
    StringGrid2.Cells[j,max]:=IntToStr(A[max,j]);