Дана матрица А размером NxM. Упорядочить ее строки по неубыванию их наибольших элементов

unit matrica_U1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Spin;
 
type
  TForm1 = class(TForm)
    T1: TStringGrid;
    T2: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Button1: TButton;
    Label3: TLabel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label4: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  a:array of array of integer;
  n,m,b:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
n:=SpinEdit1.Value;
m:=SpinEdit2.Value;
T1.ColCount:=m;
T1.RowCount:=n;
T2.ColCount:=m;
T2.RowCount:=n;
SetLength(a,n,m);
for i:=0 to n-1 do
for j:=0 to m-1 do
a[i,j]:=random(50);
for i:=0 to n-1 do
for j:=0 to m-1 do
T1.Cells[j,i]:=IntToStr(a[i,j]);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,l:integer;
    z:integer;
begin
for i:=0 to n-2 do
for l:=i+1 to n-1 do
if a[i,0]> a[l,0] then
for j:=0 to m-1 do
 begin
  z:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=z;
 end;
for i:=0 to n-1 do
for j:=0 to m-1 do
T2.Cells[j,i]:=Inttostr(a[i,j]);
end;
 
end.