{* Задача 117 *}

Unit ZADACH117;
Interface
Implementation
Begin
 writeln('Дан текст. Удалить в нём все слова "функция". ');
End.

Program pas13548;

Uses zadach117.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  a : String;
  i : longint;
  l : longint;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('введите предложение: ');
  readln(a);
  l := length(a);
  m :
  For i := 1 To l Do {* Цикл для i => [1 .. l] *}
    If (a[i] = 'ф')And(a[i + 1] = 'у')And(a[i + 2] = 'н')And           (a[i + 3] = 'к')And(a[i + 4] = 'ц')And(a[i + 5] = 'и')And           (a[i + 6] = 'я') Then
    Begin
      l := l - 7;
      delete(a, i, 7);
      Goto m;
    End;
  write('Итог: ', a);
  readln; {* Ждем нажатия Enter *}
End.