Структуры данных Delphi

[B13eR]

Вообщем нужно задать список из 10 случайных чисел типа integer в диапазоне [0..100].

Проблема в том что не могу понять куда обьявить n(10 чисел) и как сгенерировать 10 случайных чисел Ну и помимо там наверное уйма ошибок

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;  spisok : Tspisok;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
Form1.Memo1.Lines.Add(inttostr(spisok.Get))
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Spisok:=TSpisok.create;
end;

end.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
TSpisok = class
private
public
n:integer;
procedure Sostav(n:integer);
function Get:integer;
constructor create;
end;

implementation
procedure TSpisok.Sostav(n:integer);
begin
n=record spisok:[0..100];
end;
function TSpisok.Get:integer;
begin
Get:=spisok;
end;


end.

[denisbrain]

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

Вообщем нужно задать список из 10 случайных чисел типа integer в диапазоне [0..100].

Проблема в том что не могу понять куда обьявить n(10 чисел) и как сгенерировать 10 случайных чисел Ну и помимо там наверное уйма ошибок

пример описания

  Tspisok=class
    a:array of integer;
    N:integer;
  private
    { Private declarations }
  public
  procedure Sostav(Ncount:integer);
  function Get:string;
  constructor create(Ncount:integer);
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:TSpisok;
implementation

{$R *.dfm}
constructor TSpisok.create(Ncount:integer);
begin
Sostav(Ncount);
end;

procedure TSpisok.Sostav(Ncount:integer);
 var x:integer;
begin
  n:=Ncount;
  Setlength(a,n+1);
  for x:=1 to n do
  a[x]:=1+random(100);
end;

function TSpisok.Get:string;
var x:integer;
    s:string;
begin
s:='';
for X:=1 to n do if s='' then s:=s+Inttostr(a[x])+'' else s:=s+','+Inttostr(a[x])+'';
  Result:=s;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
a:=TSpisok.create(10);
Showmessage(a.Get);
end;

end.

[Serge_Bliznykov]

крайне желательно не забыть randomize;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  a:=TSpisok.create(10);
  Showmessage(a.Get);
end;