[Информатика] Решение задачи 4 из "Файлы текст чтение"

Задача 4.

Написать программу, которая перепишет в поле Memoте строки из текстового файла, в которых количество слов чётно. Имя файла вводится в поле ввода.

Для проверки работоспособности программы создайте текстовый файл с помощью текстового редактора (например, Блокнота).

var f:text;
s:string;

function f1(s:string):boolean;
var i,k:integer;
begin
while((i<length(s)) and (copy(s,i,1)=' '))do i:=i+1;

while(i<length(s))do
begin
while((i<length(s)) and (copy(s,i,1)<>' '))do i:=i+1;
while((i<length(s)) and (copy(s,i,1)=' '))do i:=i+1;
k:=k+1;
end;
if((k mod 2=0) and (k<>0))then
f1:=true
else
f1:=false;
end;

begin
readln(s);
assign(f,s);
reset(f);
while not eof(f) do
begin
readln(f,s);
if(f1(s))then
writeln(s);
end;
close(f);
end.