[Radichek]

Ситуация следующая. Нужно дописать программу. Первый столбец при нажатии первой кнопки должен рандомно заполняться числами. При нажатии второй кнопки, второй столбец должен упорядочить эти числа в порядке возрастания. Первое получилось. но при нажатии второй кнопки, он ставит все числа так же, как в первом столбце. Пожалуйста подскажите, что дописать нужно.

Код:

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 );
BEGIN
 // сделать
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
   BEGIN
      CHISLA [ I ] := STRTOINT ( TABL.Cells [ 1 , I ] )
      ;
      PP_SORT ( N, CHISLA )
      ;
      TABL.Cells [ 2 , I ] := INTTOSTR ( CHISLA [ I ] )
   END
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.