Написать программу pascal abc в исходном файле записана речь подростка, в которой часто встречается слово паразит «ко роче», например: «мама, короче, мыла, короче, раму.» убрать из текста все слова паразиты (должно остаться «мама мыла раму.»).

Программа на скрине.

Begin
  var s := ReadAllText('input.txt');
  while (pos(', короче,', s) <> 0) do
    delete(s, pos(', короче,', s), 9);
  WriteAllText('output.txt', s);
end.