Формирование массива простых чисел из текстового файла

[Serge_Bliznykov]

Модераторы! Тему можно закрыть.

так и сделал...
но потом посмотрел на ваш код.
Объясните, зачем Вам массив, если он Вам НЕ НУЖЕН?!?!

и второе, Вам нужно в файл выбрать простые числа? Или числа, которые имеют индекс, явлющийся простым числом?!
Это абсолютно разные вещи!

Вот так будет выглядеть код (функцию опустил для простоты, разумеется, она нужна!), выбирающий простые числа из F1 и записывающий эти значение в F2:

var
   f1,f2:text;
   i,n:integer;
   a: integer;
begin
     assign(f1,'f1.txt');
     reset(f1);
     read(f1,n);
     assign(f2,'f2.txt');
     rewrite(f2);
     for i:=1 to n do
          begin
               Read(f1,a);
               if IsPrime(a) then Write(f2,a,' ');
          end;
     close(f2);
     close(f1);
end.

[Vitalyas]

Я знаю, что массив тут никаким образом не участвует, но препод требовал этот долбанный массив =))
Спасибо за исправления!