Переписать в файл g все строчки файла f, которые состоят из четного количества слов - Turbo Pascal - Ответ 9819839

program lr8;
  uses crt;
    var
      f,f1: Text;
      s, stop: string;
      i, z, kil_sl:integer;
 
 
       begin
           assign (f,'f.txt');
           rewrite (f);
           writeln('Остановка создания файла - stop');
 
            repeat
              read(s);
                if s='stop' then
                    begin break;
                      end else
                      writeln(f,s)
            until false;
              writeln ('Файл создано!');
              Close(f);
 
         assign (f,'f.txt');
       {$I-}
       Reset(f);
       {$I+}
         while not eof (f) do
        begin
            readln(f,s);
            repeat
                z:=pos(' ',s);
        inc(kil_sl);
                if z<>0 then delete(s,1,z)
                else break
            until false;
            if not odd(kil_sl) then
 
       Assign(f1,'f1.txt');
 
        Reset(f); Rewrite(f1);
         while not Eof(f) do begin
           Readln(f,s);
           WriteLn(f1, s);
  end;
  Close(f);
  Close(f1);    end;
end.