[Alegun]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 a: array of integer;
 i: integer;
begin
 Randomize;
 SetLength(a, Random(10)+10);
 for i := Low(a) to High(a) do a[i]:= Random(10);
end;

Хоть куда вывод-то делать, не ведомо