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

var
  Form1: TForm1;
 const i = 4;
 const j = 5;
   var a : array of array of real;
     q,v:integer;
 w,y:integer;
 sm:real;
 p:byte;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
 begin
randomize;
sm:=0;
StringGrid1.Visible:=True;
StringGrid1.ColCount:=i;
StringGrid1.RowCount:=j;
StringGrid1.Height:=20*j;
StringGrid1.Width:= 68*i;
for q:=0 to i-1 do
for w:=0 to j-1 do
 begin
StringGrid1.Cells[q,w]:=FloatToStrF(random(100)-50, ffgeneral, 4, 2);
sm:=sm+StrtoFloat(StringGrid1.Cells[q,w]);
StringGrid2.Cells[0,w]:=FloatToStr(sm);
end
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with StringGrid1 do
  for p:=0 to ColCount-1 do
    Cols[p].Clear;
   with StringGrid2 do
  for p:=0 to ColCount-1 do
    Cols[p].Clear;
    with StringGrid3 do
  for p:=0 to ColCount-1 do
    Cols[p].Clear;
     with StringGrid4 do
  for p:=0 to ColCount-1 do
    Cols[p].Clear;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;
 
end.