Сортировка в массиве

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    strngrd1: TStringGrid;
    strngrd2: TStringGrid;
    edt1: TEdit;
    edt2: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    btn1: TButton;
    btn2: TButton;
    strngrd3: TStringGrid;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const
    Nmax=15;
    Mmax=15;
    type
      Mas2=array[1..Nmax,1..Mmax] of Extended;
var
  Form1: TForm1;
   a,b,c:Mas2;
 
   N,M,i,j:Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
M:=4;
N:=3;
edt1.Text:=FloatToStr(N);
edt2.Text:=FloatToStr(M);
Strngrd1.ColCount:=M+1;
Strngrd1.RowCount:=N+1;
Strngrd2.RowCount:=M+1;
Strngrd3.RowCount:=N+1;
 for i:=1 to N do begin
  Strngrd1.Cells[0,i]:='i='+IntToStr(i);
  Strngrd2.Cells[0,i]:='i='+IntToStr(i);
  Strngrd3.Cells[0,1]:='i='+IntToStr(i);
  end;
 
  for i:=1 to M do begin
 Strngrd1.Cells[i,0]:='j='+IntToStr(i);
 Strngrd2.Cells[i,0]:='j='+IntToStr(i);
 Strngrd3.Cells[i,0]:='j='+IntToStr(i);
end;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
Randomize;
 for i:=1 to M do
 for j:=1 to N do
 strngrd1.Cells[i,j]:=FloatToStr(Random(50)-30/2);
end;
 
procedure TForm1.btn2Click(Sender: TObject);
var
  p,k:Integer;
 
begin
 for i:=1 to M do begin
   for j:=1 to N do
   a[i,j]:=StrToFloat(strngrd1.Cells[i,j]);
 end;
 k:=0; p:=0;
 for k:=1 to N do begin
 for j:=1 to N do
 for i:=1 to M do
   if a[i,j]<0  then   begin
    for i:=1 to M do a[i,j]:=0;
   end
 
 
 end;
 for i:=1 to M do
 for j:=1 to N do
 strngrd2.Cells[i,j]:=FloatToStr(a[i,j]);
end;
 
end.