Программирование с использованием текстовых файлов

[Visockiy]

Ребята! Помогите написать прогу. Всё вроде и легко но не получается ничего толкового. Условие:
(Дан текстовый файл f. Получить все его строки, содержащие более 6 слов и вывести их в другой файл.)

вот сам код. (паскаль)

program zad1;
var f1,f2:text;
i,n,k:integer;
s:string;
begin
assign(f1,'oldf');
rewrite(f1);
readln(n); //кол-во строк
for i:=1 to n do
begin
 readln(s);
 writeln(f1,s);
 end;
 close(f1);
 reset(f1);
 assign(f2,'newf');
 rewrite(f2);
 while not eof(f1) do
 begin
 readln (f1,s);
 k:=0;
 for i:=1 to length(s) do begin
 if s[i]=' ' then k:=k+1;
 if k>6 then
 writeln(f2,s);
 end;
 close(f1);
 close(f2);
 writeln;
 reset(f2);
 rewrite(f2);
 while not eof(f2) do
 begin
 readln(f2,s);
 writeln(s);
 end;
 end;
end.

не могу разобраться чего паскаль ругается. помогите кто может



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[s-andriano]

1. Код надо оформлять так, чтобы его можно было читать (тег CODE).
2. Как именно "ругается" и на какие именно строки?

[Visockiy]

Ошибка ввода/вывода 104: фаил не открыт для ввода(Program4.pas, строка 32)
Вот так вот

[Mad_Cat]

reset(f2);
 rewrite(f2);

зачем после reset rewrite?

writeln;
 reset(f2);
 while not eof(f2) do
 begin
 readln(f2,s);
 writeln(s);
 end;
 end;

[s-andriano]

Visockiy, как Вы думаете, зачем в программах принято делать отсутупы?
Расставьте отступы в соответствии с вложенностью блоков, и ошибки в Вашей программе станет искать намного проще. Скорее всего, вы сами без посторонней помощи обнаружите ошибки в процессе расстановки правильных отсутпов.

[netpolice]

assign(f1,'oldf');
rewrite(f1);
readln(n); //кол-во строк
for i:=1 to n do
begin
 readln(s);
 writeln(f1,s);
 end;
 close(f1);

А зачем вообще этот блок если файл дан?