kms, Ставлю предупреждение. Отдельные задачи создаются в разных темах.
1)
Считываешь из массива в переменную. Получаешь длину слова. Все!
Code
for i := 1 to n do
Begin
s := a[i];
if (length(s) <= 5) then Writeln('Длина слова ',s,' меньше либо равна 5 символам');
End;
2)
Code
if (Pos('мур',X) > 0) then Writeln('В строке ',X,' содержится фрагмент "мур"');
