zadach13.PAS

{* Задача 13 *}

Unit ZADACH13;
Interface
Implementation
Begin
 writeln('Пользователь вводит текст на русском языке. Вывести исходный текст, заменив в нем слово «плохо» на «хорошо». Вычислить количество всех слов.');
End.

Program zadach13;

Uses zadach13.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  s  : String;
  s1 : String;
  k  : integer;
  n  : integer;
  p  : integer;
Begin
  read(s);
  k := 0;
  s := s + ' ';
  s1 := s;
  n := pos('плохо', s1);
  While n > 0 Do
  Begin
    delete(s1, n, 5);
    insert('хорошо', s1, n);
    n := pos('плохо', s1);
  End;
  p := pos(' ', s);
  While p > 0 Do
  Begin
    k := k + 1;
    delete(s, 1, p);
    p := pos(' ', s);
  End;
  write (s1);
  writeln('k=', k);
End.