Помогите написать программу Pascal ABC
В исходном файле записана речь подростка, в которой часто встречается слово паразит «ко роче», например: «Мама, короче, мыла, короче, раму.» Убрать из текста все слова паразиты (должно остаться «Мама мыла раму.»).

Вот пример программы на Pascal ABC, которая удаляет из текста слово-паразит «короче»:

pascal
program RemoveParasiteWords;
var
  inputText, cleanedText: string;
// Функция для удаления слова "короче" из текста
function RemoveWord(source, wordToRemove: string): string;
var
  position: Integer;
begin
  // Пока в тексте встречается слово "короче"
  position := Pos(wordToRemove, source);
  while position > 0 do
  begin
    // Удаляем слово "короче" из текста
    Delete(source, position, Length(wordToRemove));
    
    // Удаляем лишние пробелы, если есть
    if (position > 1) and (source[position - 1] = ' ') and 
       ((position > Length(source)) or (source[position] = ' ')) then
      Delete(source, position - 1, 1);
      
    position := Pos(wordToRemove, source);
  end;
  
  // Удаляем возможные начальные и конечные пробелы
  source := Trim(source);
  Result := source;
end;
begin
  // Пример исходного текста
  inputText := 'Мама, короче, мыла, короче, раму.';
  
  // Удаляем слово-паразит "короче"
  cleanedText := RemoveWord(inputText, 'короче');
  
  // Выводим результат
  Writeln('Исходный текст: ', inputText);
  Writeln('Обработанный текст: ', cleanedText);
end.

Объяснение программы:

1. Функция RemoveWord:

   • Использует функцию Pos для поиска слова "короче" в тексте.
   • С помощью Delete удаляет найденное слово вместе с пробелами, если они есть.
   • Обрабатывает случаи, когда слово стоит в начале, середине или конце текста.

2. Основной блок программы:

   • Исходный текст сохраняется в переменной inputText.
   • Функция RemoveWord вызывается с аргументами исходного текста и слова для удаления.
   • Выводится обработанный текст.

3. Удаление лишних пробелов:

   • После удаления слова обрабатываются двойные пробелы и пробелы в начале или конце строки с помощью Trim.

Эта программа будет корректно удалять все вхождения слова "короче" и оставлять аккуратный текст. Вы можете изменить исходный текст в переменной inputText на нужный.