сформировать 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.