Задача на файлы, файлы Опции

[Zlo]

Переписать из одного файла в другой n простых чисел. Файлы уже заполнены числами.
Программа не работает. Помагите плиз иправить ошибку.

program s;
var input,output:text;
k,i,n:integer;


function prostoe(x:integer):boolean;
var d:integer; p:boolean;
begin
p:=true;
for d:=2 to x-1 do if x mod d=0 then p:=false;
prostoe:=p;
end;

begin
readln(n);
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
k:=0;
while k<(n+1) do begin
read(i);
if prostoe(i) then begin inc(k);
writeln(i);
end;
end;

close(input);
close(output);

end.