Лабораторная с массивами

[Василий56]

Доброго времени суток, помогите пожалуйста с лабой
нужно доделать вот это:
условия задачи:Дана матрица размером N строк и M столбцов. Упорядочить ее строки по
возрастанию суммы их элементов.

unit ura;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Grids;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(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;
var
  Form1: TForm1;
    a: mat;
    n,m,i,j,p,k,b,u:integer;
    sum,t:extended;


implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
    n:=3;
    m:=3;
    Edit1.Text:=IntToStr(n);
    Edit2.Text:=IntToStr(m);
    StringGrid1.RowCount:=n+1;
    StringGrid1.ColCount:=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.Button3Click(Sender: TObject);
begin
   form1.Close;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
   m:=StrToInt(Edit2.Text);
   StringGrid1.ColCount:=m+1;

   for i:=1 to m 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);
 StringGrid1.RowCount:=n+1;
 for i:=1 to n do
 begin
 StringGrid1.Cells[0,i]:='i='+IntToStr(i);
 end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
         n:=StrToInt(Edit1.Text);
         m:=StrToInt(Edit2.Text);
         for i:=1 to n do
         for j:=1 to m do
         a[i,j]:=StrToInt(StringGrid1.Cells[j,i]);
          for i:=i to n do
          begin
          sum:=0;
          for j:=1 to m do
          sum:=sum+ a[i,j];
          a[i,m+1]:=sum;
          end;


          for i:=1 to n-1 do
          for p:= 1 to n-1 do
          if
          a[p,m+1]>a[p+1,m+1]
          then
          for j:=1 to n+1 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
          StringGrid1.Cells[j,i]:=FloatToStr(a[i,j]);


          end;
end.

[Вадим Мошев]

Кросспост: http://www.programmersforum.ru/showthread.php?t=279281