дано слово,опеределить входит ли это слово в предложениии(да/нет)

спасибо

//Pascal ABC.NET Версия 2.2 Сборка 790var s,sub:string;begin;writeln('Введите предложение:');readln(s);writeln('Введите слово:');readln(sub);if pos(sub,s)<>0 then writeln('Да') else writeln('Нет');//pos() возвращает позицию подстроки в строке. Если её нет, возвращает 0end.Пример работы программы:Введите предложение:Глеб не любит велосипедыВведите слово:велосипедыДа

//PascalABC.Net 3.0, сборка 1064var  s,w:string;begin  Write('Введите предложение: '); Readln(s);  Write('Введите искомое слово: '); Readln(w);  s:=' '+s+' ';  if Pos(' '+w+' ',s)>0 then Writeln('Слово входит в предложение')  else Writeln('Слово не входит в предложение')end.Тестовые решения:Введите предложение: А роза упала на лапу АзораВведите искомое слово: розаСлово входит в предложениеВведите предложение: Вчера смотрели старую кинопанорамуВведите искомое слово: киноСлово не входит в предложениеВведите предложение: Интересное было кино или так себе?Введите искомое слово: киноСлово входит в предложениеЗамечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о  контексте (подстроке)