Сортировка столбцов матрицы в порядке убывания заданной строки

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Button4: TButton;
    Edit2: TEdit;
    StringGrid2: TStringGrid;
    Edit3: TEdit;
    Label1: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  a:array of array of integer;
  b:array of array of integer;
  i,j,x,n,m:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
BEGIN
randomize;
   StringGrid1.RowCount:=n;
StringGrid1.ColCount:=m;
 
for i:=0 to n-1 do
for j:=0 to m-1 do
 begin
  a[i+1,j+1]:=-10+random(21);
  StringGrid1.Cells[j,i]:=IntToStr(a[i+1,j+1])
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var k,i,j,x :integer;
 s:string;
begin
     Setlength(b,strtoint(edit1.Text)+1,strtoint(edit2.Text)+1);
  n:=strtoint(edit1.Text);
  m:=strtoint(edit2.Text);
  x:=strtoint(edit3.Text);
  StringGrid2.RowCount:=n;
StringGrid2.ColCount:=m;
 
for i:=Stringgrid2.FixedRows to m-2 do
for j:=i+1 to m-1 do
if strtoint(Stringgrid2.Cells[i,x])> strtoint(Stringgrid2.Cells[j,x]) then
 begin
   s:=Stringgrid2.rows[i].Text;
   Stringgrid2.rows[i].text:=Stringgrid2.rows[j].text;
   Stringgrid2.rows[j].text:=s;
 end;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  Setlength(a,strtoint(edit1.Text)+1,strtoint(edit2.Text)+1);
  n:=strtoint(edit1.Text);
  m:=strtoint(edit2.Text);
end;
 
procedure TForm1.Edit2Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.Edit3Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=35;
  scrollBars:=ssBoth
 end;
end;
end.