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

Формулировка задачи:

Задан текстовый файл. Переписать у файл 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.

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

Листинг программы

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.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для работы с текстовыми файлами.

Создаются два объекта файла: f и g. Файл f предназначен для чтения, а файл g - для записи.
Задается переменная s, которая будет содержать строку из файла f.
Задаются две переменные i и kil_sl. Переменная i используется для подсчета количества слов в строке, а переменная kil_sl - для отслеживания того, сколько слов уже было прочитано.
Открывается файл f и считывается первая строка.
Строка s дополняется пробелом в начале и очищается от лишних пробелов.
Переменная i и kil_sl инициализируются.
Запускается цикл, который будет выполняться до конца файла f.
Внутри цикла считывается следующая строка из файла f, и проверяется, состоит ли она из четного количества слов. Если это так, то эта строка записывается в файл g.
После окончания цикла файл f закрывается, а файл g - записывается.
Выводится сообщение о том, что файл f был прочитан, а строки с четным количеством слов были записаны в файл g.
Программа завершается вызовом функции readln.