УМОЛЯЮ, ПОМОГИТЕ, СРОЧНО ! В программе - Pascal В файле input.txt записаны строки,...

Question

УМОЛЯЮ, ПОМОГИТЕ, СРОЧНО !
В программе - Pascal
В файле input.txt записаны строки, сколько их – неизвестно. Вывести в файл output.txt только те строки, в которых больше 5 слов (слова разделены одним пробелом). Pascal

Answer 1

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. Считается, что пробелы есть только МЕЖДУ словами (в начале строки, и в конце строки - нет).