Умоляю, , ! в программе - pascal в файле input.txt записаны строки, сколько их – неизвестно. вывести в файл output.txt только те строки, в которых больше 5 слов (слова разделены одним пробелом). pascal

Var f1,f2:text; s:string; i,k:integer;
begin
assign(f1,'input.txt');
reset(f1);
assign(f2,'output.txt');
rewrite(f2);
while not eof(f1) do
begin
readln(f1,s);
k:=0;
for i:=1 to length(s) do
 if s[i]=' ' then k:=k+1;
if k>4 then writeln(f2,s);
end;
close(f1);
close(f2);
end.

PS. Считается, что пробелы есть только МЕЖДУ словами (в начале строки, и в конце строки - нет).