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

[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

[volvo]

function IsPrime(n: integer): boolean;
var
  i,k: integer;
  b: boolean;
begin
  b:=(i>1); { <--- !!! }
  i:=2;
  k:=Trunc(Sqrt(n));
  while (i<=k) and b do begin
    b:=(n mod i>0);
    Inc(i)
  end;
  IsPrime:=b
end;

- Русская рулетка? Я про отмеченную строку...

i - локальная переменная, может быть и все время равна 0 или 1, как повезет, тогда ни одно число простым не будет... Скорее всего N имелся в виду?

[Lapp]

- Русская рулетка? Я про отмеченную строку...
... Скорее всего N имелся в виду?

Ага! )))
что-то меня дернуло поменять буковку в середине написания проги...
Спасибо!