{* Задача 233 *}

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

Program z19;

Uses zadach233.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.