задано предложение y состоящее из слов строк.проверить встречается ли данное слово

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

Тестовые решения:
Предложение: а роза свалилась на лапу азора
Слово: лапу
Найдено

Предложение: а роза свалилась на лапу азора
Слово: лапа
Не найдено