Составить программу в паскале которая проверяет наличие введенного слова в строке

Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:

var s, a:string;

begin

write ('Введите строку : ') ;

readln (s) ;

write ('Введите слово : ') ;

readln (a) ;

if (pos (a, s) 0) then writeln ('Слово "', a,'" в строке есть')

else writeln ('В строке такого слова нет') ;

end.

Тест №1

Введите строку: Привет участникам олимпиады!

Введите слово: ник

Слово "ник" в строке есть

Тест №2

Введите строку: Всем привет!

Введите слово: админ

В строке такого слова нет