Задано предложение y состоящее из слов строк.проверить встречается ли данное слово x в предложении y.Паскаль СРОЧНО ребят.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin   var y:=ReadlnString('Предложение:').ToWords;   var x:=Readlnstring('Слово:');   if y.Where(w->w=x).Any then Writeln('Найдено')   else Writeln('Не найдено') end. Тестовые решения: Предложение: а роза упала на лапу азора Слово: лапу Найдено Предложение: а роза упала на лапу азора Слово: лапа Не найдено