Поменять местами минимальный и максимальный элементы матрицы

procedure TForm1.FormCreate(Sender: TObject);
begin
 
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth
 end;
with StringGrid2 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,code:integer;
begin
randomize;
//проверим ввод размеров
val(Edit1.Text,n,code);
if (code<>0)or(n<2)then
 begin
  ShowMessage('Неверно введен размер матрицы');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=n;
StringGrid2.RowCount:=n;
StringGrid2.ColCount:=n;
Setlength(x,n,n);
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  x[i,j]:=random(100);
  StringGrid1.Cells[j,i]:=IntToStr(x[i,j])
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,imx,jmx,imn,jmn,t:integer;
begin
imx:=0;
jmx:=0;
imn:=0;
jmn:=n-1;
for i:=0 to n-1 do
for j:=0 to n-1 do
if (j<=i)and(j<=n-i-1)and(x[i,j]>x[imx,jmx])then
 begin
  imx:=i;
  jmx:=j
 end
else if (j>=i)and(j>=n-i-1)and(x[i,j]<x[imn,jmn])then
 begin
  imn:=i;
  jmn:=j
 end;
t:=x[imx,jmx];
x[imx,jmx]:=x[imn,jmn];
x[imn,jmn]:=t;
for i:=0 to n-1 do
for j:=0 to n-1 do
StringGrid2.Cells[j,i]:=IntToStr(x[i,j])
end;
 
end.

with stringgrid1 do
begin
if ((ACol=x)and(ARow=y)) then
 begin
  Canvas.Brush.Color:=cl...//... означает название цвета
  Canvas.FillRect(Rect);
  Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);//вывод значения поверх окраски
 end;
end;