Дан текстовый файл. составьте программу, которая считывает текст из файла, вычисляет количество слов в каждой строке. вставьте в конце каждой строки количество слов и записать в новом файле.

Var  s          : string;  finish,k,i : longint;begin  assign(input,'input.txt'); reset(input);  assign(output,'output.txt'); rewrite(output);  finish:=0;  while(finish=0) do { если finish будет <> 0 то программа    перестанет читать текст}    begin      writeln('читать? если да, то 0 если нет, то 1');      readln(finish);      k:=0;      if finish=0        then begin               readln(s);               for i:=1 to length(s) do                 if s[i]=' '                   then inc(k);             end        else exit;      inc(k);      writeln(k);    end;end.