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

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:integer;
begin
randomize;
 For i:=StringGrid1.FixedCols to StringGrid1.RowCount-1 do
 for j:=StringGrid1.FixedRows to StringGrid1.ColCount-1 do
  begin
   K:=random(100);
   StringGrid1.Cells[i,j]:=IntToStr(k);
  end;
    end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
 max,min,maxi,maxj,mini,minj:integer;
begin
max:=StrToInt(StringGrid1.Cells[0,0]);
min:=StrToInt(StringGrid1.Cells[0,0]);
 for j:=StringGrid1.FixedRows to StringGrid1.ColCount-1 do
 For i:=StringGrid1.FixedCols to StringGrid1.RowCount-1 do
  begin
   if StrToInt(StringGrid1.Cells[j,i])>max then
    begin
    max:=StrToInt(StringGrid1.Cells[j,i]);
    maxi:=i;
    maxj:=j;
    end;
   if StrToInt(StringGrid1.Cells[j,i])<min  then
    begin
    min:=StrToInt(StringGrid1.Cells[j,i]);
    mini:=i;
    minj:=j;
    end;
    end;
   Label3.Caption:=IntToStr(max);
   Label4.Caption:=IntToStr(min);
   StringGrid1.Cells[minj,mini]:=IntToStr(max);
   StringGrid1.Cells[maxj,maxi]:=IntToStr(min);
end;