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

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.

uses crt;
var f,g: Text;
    s:string;
   i,kil_sl:byte;
begin
clrscr;
assign (f,'F.txt');
reset(f);{файл создаем в Блокноте и сохраняем в папке с пограммой}
assign (g,'G.txt');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  s:=' '+s;//пробел в начало для удобства
  kil_sl:=0;
  for i:=1 to length(s) do
  if(s[i-1]=' ')and(s[i]<>' ')then inc(kil_sl);
  if kil_sl mod 2=0 then writeln(g,s);
 end;
Close(f);
Close(g);
write('Файл F.txt прочитан, строки с четным количеством слов записаны в файл G.txt');
readln
end.