Подскажите, Надо составить массив из составных чисел... Опции

[ceccil]

надо составить массив из n чисел, которые должны быть составными и >40... пробовал много вариантов... сначало хотел отделить составные числа ползуясь их четностью.. кое че получилось но в массив никак не могу их сунуть отдельно составные числа прощитал но.... с массивом проблемки... мучаюсь 2 с лишним часа уже просто голова не варит. подскажите пожалуйста путь решения. Вот последний вариант решения задачи после которой уже не могу даже простую ошибку найти..

Код

program no1;
var n,k,i,j:integer; t:boolean;
x: array [1..100] of integer;
y: array [1..100] of integer;
begin
readln (n);
for k:=1 to n do
begin
for i:=41 to (41+2*k) do
begin
t:=true;
for j:=2 to (x[i]-1) do
if i mod j=0 then
begin
t:=false;
break end;
if t=true then
x(k):=j;
end;
writeln ('x[k]='x(k));
end;
end.