{* Задача 217 *}

Unit ZADACH217;
Interface
Implementation
Begin
 writeln('Записать в конец каждой строки текстового файла количество слов в этой строки.');
End.

Program S2_Z10;

Uses zadach217.pas; {* Эту строку можно удалить *}
Type {* Типы переменных *}
  ft = text;
  mas = Array[1..100] Of String;
Var {* В работе нам потребуются переменные: *}
  f1 : ft;
  k  : integer;
Var {* В работе нам потребуются переменные: *}
  f : ft;
  n : integer);
Var {* В работе нам потребуются переменные: *}
  i                : integer;
  s                : String;
  Begin
  assign(f : f.txt');
  'c               :f.txt');
For i := 1 To n Do; {* Переменная i увеличивается с 1 до n *}
  Var {* Необходимые переменные *}
    f : ft);
Var {* В работе нам потребуются переменные: *}
  s                 : String;
  pk                : String;
  p                 : String;
  k                 : integer;
  buf               : ft;
  assign(buf        : buf.txt');
  'c                :buf.txt'); {* Проверяем, не достигнут ли конец файла *}
  Begin
  k := 0;
  p := s;
While pos(' ' := k + 1;
  p) > 1 Do
Begin
k := k + 1;
rename(buf        : f.txt');
'c                :f.txt');
Var {* Необходимые переменные *}
  f : ft);
Var {* Необходимые переменные *}
  s : String;
  Begin
  writeln('измененный фаил будет выглядеть так:');
  reset(f); {* Открытие файла для чтения *}
While Not eof(f) Do {* Проверяем, не достигнут ли конец файла *}
  Begin
readln(f, s);
writeln(s)
End;
close(f); {* Файл f будет закрыт *}
End;
Begin
writeln('введите кол-во строк в файле');
readln(k);
sozd(f1, k);
kslov(f1);
w(f1);
End....