Упорядочить строки матрицы по возрастанию их первых элементов

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 const
  Nmax=10;
  Mmax=10;
   Type
    Mas2=array[1..Nmax,1..Mmax] of integer;
 
var
  Mas:array[1..Nmax,1..Mmax] of integer;
  Form1: TForm1;
  A:Mas2;
  N,M,i,j:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 N:=3;
 M:=4;
  Edit1.Text:=FloatToStr(N);
  Edit2.Text:=FloatToStr(M);
  StringGrid1.ColCount:=M+1;
  StringGrid1.RowCount:=N+1;
  StringGrid1.Cells[0,0]:='массив A';
    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.Button1Click(Sender: TObject);
begin
 N:=StrToInt(Edit1.Text);
 M:=StrToInt(Edit2.Text);
  StringGrid1.RowCount:=N+1;
  StringGrid1.ColCount:=M+1;
   for i:=1 to N do
    StringGrid1.Cells[0,i]:='i='+IntToStr(i);
   for j:=1 to M do
    StringGrid1.Cells[i,0]:='j='+IntToStr(i);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
 var l,i,j,M,N:integer;
     r:integer;
 A:Mas2;
begin
 for i:=1 to N-1 do
  for l:=i+1 to N-1 do
   if A[i,1]>A[l,1] then
   for j:=1 to N-1 do
    {StringGrid1.Cells[i,j]:=IntToStr(A[i,j]);
  end;
      begin
        for i:=1 to N-1 do
        for j:=1 to N-i do
         if A[j]>A[j+1] then }
          begin
          r:=A[i,1];
          A[i,1]:=A[l,1];
          A[l,1]:=r;
           StringGrid1.Cells[i,j]:=IntToStr(A[i,j]);
          end;
 
end;
end.