Сформировать 15элементный массив случайным образом

Var a: array [1..15] of word; // возьмем массив из 15 чисел
    i      :byte;
begin
  randomize;
  for i:=1 to 15 do //заполняем исходный массив случайными числами (до 1000)
  begin
    a[i]:=random(1000);
    writeln (i,' элемент массива ',a[i]);
  end;
end.