не тот результат записывается в файл, нужно поменять 2 строчки местами Опции

[Lurid]

получаю ошибку - Error 105: File not open for output.

 
Program ch;
Var
f1, f2: text; a,n: byte; count: integer; stroka, stroka1, stroka2: string;
begin
a:=2;
n:=4;
assign (f1, 'file1.txt');
assign (f2, 'file2.txt');
reset (f1);
rewrite (f2);
count:=0;
while not eof (f1) do begin
readln (f1, stroka);
if count=a then
writeln (f2, stroka1);
if count=n then
writeln (f2, stroka2);
count:= count+1;
end;
begin
reset (f2);
rewrite (f1);
count:=1;
if count=a then
readln (f2, stroka2);
writeln (f2, stroka);
if count=a then
readln (f2, stroka1);
writeln (f2, stroka);
count:= count+1;
end;
close (f1);
close (f2);
erase (f2);
end.

Сообщение отредактировано: Lurid - 11.04.2007 19:39

[klem4]

 
reset (f2);
// ...
writeln (f2, stroka);

ты переоткрыл файл для чтения, а пытаешь в него писать ...

[Lurid]

 
reset (f2);
// ...
writeln (f2, stroka);

ты переоткрыл файл для чтения, а пытаешь в него писать ...

А как надо? я дома изучаю язык. по учебнику. Поэтому если не трудно то где править?