[ined]

Я вот так сделал

Код:

unit GLAV_FM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TFM_GLAV = class(TForm)
    TABL: TStringGrid;
    POLE_N: TEdit;
    KN_ZAP: TButton;
    KN_SORT: TButton;
    procedure KN_ZAPClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure KN_SORTClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FM_GLAV: TFM_GLAV;

implementation

{$R *.dfm}
CONST
    MAX_N = 300
;
TYPE
   T_M = ARRAY [ 1 .. MAX_N ] OF WORD
;
VAR
   N : WORD
;


PROCEDURE PP_SORT ( K: WORD ; VAR M : T_M );
 procedure ma(var a,b:word);
  var t:word;
  begin
   if (a>b) then
     begin
       t:=a;
       a:=b;
       b:=t;
     end;
  end;
var i,j:integer; AA,BB:word;
BEGIN
 for i := 1 to k - 1 do
  for j := 1 to k - 1 do
   begin
    AA:=M[j];
    BB:=M[j+1];
    ma(AA,BB);
    M[j]:=AA;
    M[j+1]:=BB;
   end;
 // сделать
END
;

procedure TFM_GLAV.FormCreate(Sender: TObject);
VAR
   I: WORD
;
begin

   N := STRTOINT ( POLE_N.Text )
   ;
   IF  N > MAX_N THEN
   BEGIN
      N := MAX_N;
      POLE_N.Text := INTTOSTR ( N )
   END
   ;
   TABL.RowCount := N + 1
   ;
   FOR I := 1 TO N DO
   BEGIN
      TABL.Cells [ 0 , I ] := INTTOSTR ( I )
      ;
      TABL.Cells [ 1 , I ] := INTTOSTR ( ROUND ( 1 + 498 * RANDOM ) )
   END

end;

procedure TFM_GLAV.KN_SORTClick(Sender: TObject);
VAR
   I: WORD
   ;
   CHISLA : T_M
;
begin
   FOR I := 1 TO N DO   CHISLA [ I ] := STRTOINT ( TABL.Cells [ 1 , I ] ) ;

   PP_SORT ( N, CHISLA );

   FOR I := 1 TO N DO   TABL.Cells [ 2 , I ] := INTTOSTR ( CHISLA [ I ] )

end;

procedure TFM_GLAV.KN_ZAPClick(Sender: TObject);
VAR
   I: WORD
;
begin

   N := STRTOINT ( POLE_N.Text )
   ;
   IF  N > MAX_N THEN
   BEGIN
      N := MAX_N;
      POLE_N.Text := INTTOSTR ( N )
   END
   ;
   TABL.RowCount := N + 1
   ;
   FOR I := 1 TO N DO
   BEGIN
      TABL.Cells [ 0 , I ] := INTTOSTR ( I )
      ;
      TABL.Cells [ 1 , I ] := INTTOSTR ( ROUND ( 1 + 498 * RANDOM ) )
   END
end;

end.

У меня всё работает.