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

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

var s,a:string;
    begin
    write('Введите строчку : ');
    readln(s);
    write('Введите слово : ');
    readln(a);
       if(pos(a, s) lt;gt; 0) then writeln('Слово "',a,'" в строке есть')
       else writeln('В строке такового слова нет');
    end.

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

Тест 2
Введите строку : Всем привет!
Введите слово : администратор
В строке такового слова нет