Обработка символьной строки.

var
  CountSpace, CountLit: Integer;
  Index, i: Byte;
  Str: String;
begin
  CountSpace:=0; CountLit:=0;
  repeat
    write('Строка: ');
    readln(Str);
    if Str[1] = '!' then
      writeln('Первый символ - "!"!')
  until Str[1] <> '!';
  for i:=1 to Length(Str) do
    if Str[i] = '!' then
    begin
      Index:=i;
      Break;
    end;
  writeln('Первый "!" встречается на позиции: ', Index);
  write('Строка до первого "!": ');
  for i:=1 to Index do
  begin
    write(Str[i]);
    if Str[i] = ' ' then Inc(CountSpace);
    if Str[i] = 'ю' then Inc(CountLit);
  end;
  writeln;
  writeln('Кол-во пробелов: ', CountSpace);
  if CountLit <> 0 then
    writeln('Буква "ю" входит в последовательность!')
  else writeln('Буква "ю" не входит в последовательность!');
  if (pos('ш', Str)<>0) and (pos('и', Str)<>0) and (pos('н', Str)<>0) and (pos('а', Str)<>0) then
    writeln('В последовательности есть все буквы,входящие в слово "шина"!')
  else writeln('В последовательности не все буквы, входящие в слово "шина"!');
end.