обменять местами элементы строки и столбца / Delphi для начинающих

[tane]

Доброго времени суток, господа!
В квадратной таблице (любые целые числа) обменяйте местами элементы строки и столбца, на пересекании которых находится первый минимальный элемент из позитивных чисел. Выведите на экран матрицу до, и после изменения.

Сначала мы ищем мин ел-т.Как нам выполнить вот это: обменять местами элементы строки и столбца, на пересекании которых находится первый минимальный элемент?

Я думаю,нужно сделать такую комбинацию a[i,j] на a[j,i].Но как нам это корректно реализовать в коде?

procedure TForm1.Button1Click(Sender: TObject);
var i,j,min,ind:Integer; a:array [1..4,1..4] of Integer;
begin
  for i:=1 to 4 do                             //
  for j:=1 to 4 do                             //
  begin                                         //       
   ind:=1+Random(50);                             //
   a[i,j]:=ind;                                       //
   StringGrid1.Cells[i-1,j-1]:=IntToStr(ind);             //
    end;
    
    begin
 
  min:=a[i-1,j-1];
  for i:=1 to 4 do                             //
  for j:=1 to 4 do
    if a[i,j] < min then
    begin
      min:=a[i,j];
    end;
 
  label1.caption:='Минимальный ел-т'+' - '+inttostr(min);
      end;
 
end;

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
const
  n = 4;
var
  i, j, mini, minj, tmp : Integer;
  a: array [1..n, 1..n] of Integer;
begin
  for i := 1 to n do
    for j := 1 to n do
    begin
      a[i, j] := Random(101) - 50;
      StringGrid1.Cells[j - 1, i - 1] := IntToStr(a[i, j]:);
    end;
  mini := 0;
  minj := 0;
  for i := 1 to n do
    for j := 1 to n do
      if (a[i, j] > 0) and ((mini = 0) or (a[i, j] < a[mini, minj])) then
      begin
        mini := i;
        minj := j;
      end;
  if mini <> 0 then
    for i := 1 to n do
    begin
      tmp := a[mini, i];
      a[mini, i] := a[i, minj];
      a[i, minj] := tmp;
    end;
end;

[tane]

Если результат записать,например, в Memo1.Lines.Add(IntToStr(tmp)); ,то нам покажет только измененную строку в столбец,а как сделать,чтобы при нажатии на кнопку ,нам вывело всю матрицу(измененную) (например, в StringGrid2 или memo)?

[BDA]

Точно также, как и в теме поменять элементы относительно побочной диагонали и вывести на экран(delphi)