delphi 7

[TeddyVlad]

Здравствуйте. Программировать в delphi начал недавно. И вот какая задача встала на пути.
В массиве целых чисел a1-an переправить элементы таким образом, чтобы вначале шли элементы массива, меньшие a1, затем сам элемент a1, и далее элементы, большие а1. Элементы с помощью датчика случайных чисел я отобразил в компоненте StringGrid1. В компоненте StringGrid2 планируют вывести массив после преобразования.
Вот код который начал писать:unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    strngrd1: TStringGrid;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var i:Integer;
begin
 for i:=0 to 10 do
  strngrd1.Cells[0,i]:=IntToStr(Random(100));
end;

end.

[Iron Monk]

Сообщение от TeddyVlad

Здравствуйте. Программировать в delphi начал недавно. И вот какая задача встала на пути.
В массиве целых чисел a1-an переправить элементы таким образом, чтобы вначале шли элементы массива, меньшие a1, затем сам элемент a1, и далее элементы, большие а1. Элементы с помощью датчика случайных чисел я отобразил в компоненте StringGrid1. В компоненте StringGrid2 планируют вывести массив после преобразования.
Вот код который начал писать:unit Unit1;

interface

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

type
TForm1 = class(TForm)
strngrd1: TStringGrid;
btn1: TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var i:Integer;
begin
for i:=0 to 10 do
strngrd1.Cells[0,i]:=IntToStr(Random(100));
end;

end.

А где инициализация генератора случайных чисел?

[zvygin1964]

procedure TForm1.FormShow(Sender: TObject);
begin
Randomize;
end;

[TeddyVlad]

Сообщение от zvygin1964

procedure TForm1.FormShow(Sender: TObject);
begin
Randomize;
end;

Да, спасибо добавил. Как я пропустил, не пойму😑