В матрице размером N строк и M столбцов упорядочить строки по возрастанию их первых элементов

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  Buttons, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
const
    Nmax=10;// Максимальный размер массива
  Type
    mat=array[1..Nmax,1..Nmax] of extended;// Объявление типа двухмерного массива
    vek=array[1..Nmax] of extended; // Объявление типа одномерного массива
var
  Form1: TForm1;
    a: mat; // Объявление двухмерного масиива
    b: vek; // Объявление одномерного массива
    n,m,i,j,p,t:integer;
    F:boolean;
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
n:=4;
m:=4;
edit1.Text:=inttostr(n);
edit2.Text:=inttostr(m);
Stringgrid1.RowCount:=n+1;
Stringgrid1.ColCount:=m+1;
Stringgrid2.RowCount:=n+1;
Stringgrid1.Cells[0,0]:='a';
Stringgrid2.Cells[0,0]:='b';
 for i:=1 to n do
 Stringgrid1.Cells[0,i]:='i='+inttostr(i);
  for j:=1 to m do
 Stringgrid1.Cells[j,0]:='j='+inttostr(j);
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
          for j:=1 to m do
          a[i,j]:=Strtofloat(Stringgrid1.Cells[j,i]);
          for i:=1 to n-1 do
          for p:=1 to n-i do
          if a[p,1]>a[p+1,1] then
          for j:=1 to m do
          begin
          t:=a[p,j];
          a[p,j]:=a[p+1,j];
          a[p+1,j]:=t;
          end;
          for i:=1 to n do
          for j:=1 to m do
          Stringgrid2.Cells[j,i]:=floattostr(a[j]);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
StringGrid1.RowCount:=n+1;
StringGrid2.RowCount:=n+1;
for i:=1 to n do
 Stringgrid1.Cells[0,i]:='i='+inttostr(i);
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  m:=StrToInt(Edit2.Text);
StringGrid1.ColCount:=m+1;
for j:=1 to m do
 Stringgrid1.Cells[j,0]:='j='+inttostr(j);
end;
 
end.