В матрице размером NxM поменять местами строку, которая содержит элемент с наибольшим значением со строкой, которая содержит элемент с наименьшим

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 const
  Nmax = 10; Mmax =10;
type
 
 
  Mas = array[1..Nmax, 1..Mmax] of integer;
var
 
 
 a : Mas;
  N,M, i, j : integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  N := 3;
  Edit1.Text := FloatToStr(N);
  M := 5;
  Edit2.Text := FloatToStr(M);
 
  StringGrid1.ColCount := N + 1;
  StringGrid1.RowCount := M + 1;
  
 
  StringGrid1.Cells[0, 0] := 'Ìàñèâ À';
 
   for i:=1 to N do
  begin
 
    StringGrid1.Cells[i, 0] := 'j='+ IntToStr(i);
 
 
  end;
  for i:=1 to M do
  begin
    StringGrid1.Cells[0, i] := 'i='+ IntToStr(i);
 
 
  end;
end;
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  N := StrToInt(Edit1.Text);
  M := StrToInt(Edit2.Text);
  StringGrid1.ColCount := N + 1;
  StringGrid1.RowCount := M + 1;
 
   for i:=1 to N do
  begin
    StringGrid1.Cells[0, i] := 'i=' + IntToStr(i);
    StringGrid1.Cells[i, 0] := 'j=' + IntToStr(i);
 
  end;
 
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var imin,imax:byte;
     min,max,x:integer;
 
begin
   imin:=1;imax:=1;
min:=a[1,1];max:=a[1,1];
for i:=1 to n do
for j:=1 to m do
 begin
  if a[i,j]<min then
   begin
    min:=a[i,j];
    imin:=i;
   end;
  if a[i,j]>max then
   begin
    max:=a[i,j];
    imax:=i;
   end;
 end;
 for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    x:=a[imin,j];
    a[imin,j]:=a[imax,j];
    a[imax,j]:=x;
   end;
   StringGrid1.Cells[0, i] := FloatToStrF(a[i,j], ffFixed,6,2);
  end;
 
end;
 
end.

  N,M: integer;

  Edit1.Text := FloatToStr(N);
  Edit2.Text := FloatToStr(M);

 Edit1.Text := IntToStr(N);
 Edit2.Text := IntToStr(M);