нахождение простых чисел Опции

[He!!]

В файле А.dat дано натуральное n и массив целых чисел длины n. B файл B.dat выписать все элементы массива X, индексы которых являются простыми числами. Распознование простого числа оформить в виде подпрограммы.
Очень надо решить эту задачу))) ПлиЗ

Добавлено через 2 мин.
вот что я попытался сделать, но тут есть ошибки в самой программе, а исправить незнаю как

program Kurs;

procedure nat(i:integer;var k:integer);
var n,s:integer;
begin
s:=0;
for n:=1 to i-1 do
if i mod n = 0 then s:=s+1;
if s=0 then k:=i; end;

var f:text;
a:array[1..10] of integer;
c:array[1..10] of integer;
n,i,j,k:integer;

begin
assign(f,'a.dat');
reset(f);
read(f,n);

for i:=1 to n do
read(f,a[i]);

for i:=1 to n do
write(f,a[i]);

for j:=1 to 10 do
for i:=1 to n do begin
nat(i,k);
c[j]:=a[k];
end;

writeln;
for j:=1 to 10 do
write(c[j]);

close(f);
assign(f,'b.res');
rewrite(f);
writeln;
for j:=1 to n do
write((f,c[j]);
Close(f);

end.

Сообщение отредактировано: He!! - 23.12.2008 2:42

[Unconnected]

procedure nat(i:integer;var k:integer);
var n,s:integer;
begin
  s:=0;
  for n:=1 to i-1 do
  if i mod n = 0 then s:=s+1;
  if s=0 then k:=i;
end;

program Kurs;
var f:text;
    a:array[1..10] of integer;
    c:array[1..10] of integer;
    n,i,j,k:integer;
begin
  assign(f,'a.dat');
  reset(f);
  read(f,n);
  for i:=1 to n do
  read(f,a[i]);
  for i:=1 to n do
  write(f,a[i]);
  for j:=1 to 10 do
  for i:=1 to n do begin
  nat(i,k);
  c[j]:=a[k];
end;
  writeln;
  for j:=1 to 10 do
  write(c[j]);
  close(f);
  assign(f,'b.res');
  rewrite(f);
  writeln;
  for j:=1 to n do
  write(f,c[j]);
end.

Вот твой код. Он компилируется, нужно было убрать лишнюю скобку в предпоследней строке.
Первое - это ты не закрываешь файл в конце. Второе - я вот не вижу(может,смотрю плохо ), где ты делаешь проверку на простое число.

[He!!]

Вот твой код. Он компилируется, нужно было убрать лишнюю скобку в предпоследней строке.
Первое - это ты не закрываешь файл в конце. Второе - я вот не вижу(может,смотрю плохо ), где ты делаешь проверку на простое число.

1) про скобку я непонял, какая именно? в предпоследней стороке все скобки необходимы.
2)проверку на простое числу выполняю в процедуре. см самый верх