Запишите программу формирования и вывода массива из N элементов (N <1000). Элементы массива первые N простых чисел (простое число - это натуральное число, отличное от единицы, которое делится только на 1 и на себя)

Program sh;

var j:integer;

massiv:array [1 ... 1000] of integer;

begin;

begin;

randomize;

for j:=1 to 1000 do

massiv[j]:=random (1000) ;

end;

for j:=1 to 1000 do

begin;

if (massiv[j] mod 1=0) then

if (massiv[j]>0) and (massiv[j] mod massiv[j]=0) then

write (massiv[j]:5) ;

end;

end.

Я не очень понял запрос, в итоге эта программа выводит все натуральные числа созданные рандомом в районе от 0 до 1000.