Здравствуйте, Iriha!

Программа в приложении.
Комментарии в приложении, если будут вопросы, задавайте их в мини-форум.
Удачи!

Приложение:
const
n=10;
var
a:array[1..n]of integer;
i,j:integer;
begin
{вводим массив чисел}
for i:=1 to n do
begin
write('a[',i,']:=');
readln(a[i]);
end;
{проверяем массив}
for i:=1 to n do
if a[i]>1 then{простые числа начинаются с 2}
begin
j:=a[i]-1;{не будем делить само на себя}
while (a[i] mod j)>0 do{в цикле изменяем делитель}
dec(j);
{если достигли 1, то число простое, выводим его}
if j=1 then writeln('a[',i,']:=',a[i]);
end;
readln;
end.