Решение 2-й задачи.
Наверно, можно было лучше сделать, но я все таки С++ учил, а не Паскаль.
var
str1:String;
a,b,c,d,e:Integer;
begin
Write('Введите строку: ');
ReadLn(str1);
a:=pos('ш',str1);
b:=pos('и',str1);
c:=pos('н',str1);
d:=pos('а',str1);
e:=pos('!',str1);
if (a < e) and (b < e) and (c < e) and (d < e) then
Write('Уррра! Слово получится')
else
Write ('Нифига не получится');
ReadLn;
end.
Первую задачку, я так понимаю, решили уже?