Эргономика как инструмент регулирует

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

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

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

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

Var  
a, b: array[1..10] of integer;  
i, min, max, sum: integer;  
begin  
min := 10;  
for i := 1 to 10 do   begin    
write('Введите ',i,'-ый элемент первого массива ');
Readln(a[i]);    
write('Введите ',i,'-ый элемент второго массива ');
Readln(b[i]);  
if a[i] < min then min := a[i];    
if b[i] > max then max := b[i];  
end;  
for i := 1 to 10 do    
write(a[i], ' ');  
Writeln;  
for i := 1 to 10 do    
write(b[i], ' ');  
writeln;   
writeln('Минимальное первого массива ', min);   writeln('Максимальное первого массива ', max);  
sum := min + max;  
for i := 1 to 10 do    
if (i mod 2) = 0 then      
a[i] := sum else
b[i] := sum;  
for i := 1 to 10 do    
write(a[i], ' ');  
Writeln;  
for i := 1 to 10 do    
write(b[i], ' ');
end.