Помогите написать программу Pascal ABC
В исходном файле записана речь подростка, в которой часто встречается слово паразит «ко роче», например: «Мама, короче, мыла, короче, раму.» Убрать из текста все слова паразиты (должно остаться «Мама мыла раму.»).
В исходном файле записана речь подростка, в которой часто встречается слово паразит «ко роче», например: «Мама, короче, мыла, короче, раму.» Убрать из текста все слова паразиты (должно остаться «Мама мыла раму.»).
Answers & Comments
var s := ReadAllText('input.txt');
while (pos(', короче,', s) <> 0) do
delete(s, pos(', короче,', s), 9);
WriteAllText('output.txt', s);
end.