Функция заполнения динамического массива случайными числами

[Beren42]

Здравствуйте. Необходимо создать функцию заполнения динамического массива случайными числами.

implementation
{$R *.dfm}
 type
 TIntArray =  array of integer ;

function Create (var n : Integer): TIntArray;
var
  I : Integer ;
  A :TIntArray ;
begin
  SetLength(A, n);
  for I := 0 to  n-1  do
  A[I] :=  Random ;
  Result : = A;
 end;


procedure TForm1.Button1Click(Sender: TObject);
var
  I, x : Integer;
  Mas : TIntArray;
begin
  x := StrToInt(Edit1.Text);
   Mas := Create(x);
  for I := 0 to  x - 1 do
    begin
    Memo1.Lines.Add(IntToStr(Mas[I]));
    end;

end.

Ошибка в

  A[I] :=  Random ;

Нужна помощь.

[three_cats]

A[I]:=random(100); // Числа от 0 до 100 включительно.

[Beren42]

Теперь ошибка в

 Mas := Create(x);

[Serge_Bliznykov]

слово Create не нравится!
измените, например, на:

function ArrayCreate (var n : Integer): TIntArray;
...


   Mas := ArrayCreate(x);