Нужно составить массив из 10 простых чисел, введенных с клавиатуры

смотрел по поиску или faq ?

Держи

 var a: array[1..10] of integer;
       i:integer;
 begin
  for i:=1  to 10 do 
             begin 
                     write(a[',i,']=');
                      reaadln(a[i]);{вводиш по очреди свои числи}
             end;
{вивод на екран}
   for i:=1  to 10 do 
          write(a[',i,']=',a[i]);
readln;
end.
 

и ничего сложного

amega

Если нужны именно простые числа, то слегка сложнее...
Замечательные числа

Отчего же?
Прстые числа или нет - проблема того, кто будет вводить, т.к. по условию простые числа должен вводить именно пользователь.