Pascal!!!! Help!!! Среди слов S1....Sn найдите самое короткое и удалите в

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var st:='balloon duster tooth loot cooperation'; // не вводим
  // var st:=ReadlnString; // если хочется вводить
  var s:=st.ToWords; // массив из слов s[i]
  s.Println; // показать исходный массив слов
  // фактически решение
  var i:=s.Select(w-gt;w.Length).ToArray.IndexMin; // индекс краткого слова
  s[i]:=s[i].Replace('oo','');
  s.Println; // результат
end.

Итог
balloon duster tooth loot cooperation
balloon duster tooth lt cooperation