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

[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.

[asu2006]

Добавь:
writeLn(input, i);
writeLn(output, i);

[Malice]

Убери объявления переменных:

input,output:text;

Они и так уже есть.

[Zlo]

Изменил программу но все равно не переписывает. Выложите плиз исправленную а то может я что то не так изменяю.

Сообщение отредактировано: Zlo - 17.12.2007 2:17

[Malice]

program s;
var 
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.

Убрал объявление переменных