Дана строка. удалить те слова, которые содержат хотя бы одну букву о. паскаль

// PascalABC.NET 3.0, сборка 1128
begin
  var s:=ReadLnString('Введите строку:');
  s.ToWords.Where(x->Pos('о',x)=0).Println;
end.

Тестовое решение:
Введите строку: А это у нас просто тестовая строчка такая
А у нас такая