Процедуры и функции

procedure TForm1.Button1Click(Sender: TObject);
const
  n=3;
  m=3;
type
  matrix=array[1..n,1..m] of Extended;
 
  procedure swap(Sg1,Sg2 : TStringGrid);
  var
    A,B:matrix;
    MaxNum : Extended;
    i,j, Ia, Ja, Ib, Jb:Integer;
  begin
    //Переписываем содержимое таблиц в массивы.
    for i:=1 to n do
    for j:=1 to m do begin
      A[i,j] := strtofloat(Sg1.Cells[j - 1, i - 1]);
      B[i,j] := strtofloat(Sg2.Cells[j - 1, i - 1]);
    end;
    //Поиск координат первого наибольшего элемента в массиве А.
    MaxNum := A[1,1];
    for i:=1 to n do
    for j:=1 to m do
    if A[i,j] > MaxNum then begin
      MaxNum := A[i,j];
      Ia := i;
      Ja := j;
    end;
    //Поиск координат первого наибольшего элемента в массиве Б.
    MaxNum := B[1,1];
    for i:=1 to n do
    for j:=1 to m do
    if B[i,j] > MaxNum then begin
      MaxNum := B[i,j];
      Ib := i;
      Jb := j;
    end;
    //Меняем значения наибольших элементов в матрицах А и Б.
    MaxNum := A[Ia, Ja];
    A[Ia, Ja] := B[Ib, Jb];
    B[Ib, Jb] := MaxNum;
    //Переписываем значения из массивов в таблицы.
    for i:=1 to n do
    for j:=1 to m do begin
      Sg1.Cells[j - 1, i - 1] := FloatToStr(A[i,j]);
      Sg2.Cells[j - 1, i - 1] := FloatToStr(B[i,j]);
    end;
  end;
begin
  swap(StringGrid1, StringGrid2);
end;
end.

Const
  n = 5; //Это количество строк
  m = 4; //Это количество столбцов