Помогите разобраться в задаче на массив

[WerMut]

Вводится длина одномерного массива, состоящего из целых чисел, и его элементы. С этим массивом произвести указанные действия и вывести результаты. Если используется "заданное число", то оно тоже вводится.
Требуется удалить элементы, являющиеся простыми числами.

Program v6;
var
a, b: array [1..100] of integer;
m, j, k1, i, n: integer;
begin
writeln ('Вв. длину вектора ');
readln(n);
writeln ('Вв. элементы вектора ');
for i:=1 to n do
read (a[i]);
readln;
j=0;
for i:=1 to n d0
begin
k1:=0;
for m:=1 to a[i] do
if a[i] mod m=0 then
k1:=k1+1;
if k1<>2 then
begin
j:=j+1;
b[j]:=a[i];
end;
for i:=1 to j do
writeln (b[i]);
end.

Отредактируйте меня, пожалуйста, до рабочей программы. И скопируйте пожалуйста два прогона программы в ответе, пожалуйста. Очень срочно нужно!!! А Паскаль на Вин 7 косячит очень сильно. Буду премного благодарен!!!

[WerMut]

Помогите, срочно!!!