помогите с задачей 257д) пожалуйста. Учебник "задачи по программированию" Абрамов. Pascal.

На данный момент не время придираться.

ну вот вы сами ответили на собственный вопрос

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку:');
  s:=s.Left(Pos('!',s)-1);
  Writeln('Пробелов: ',s.Where(c-gt;c=' ').Count);
  Writeln('Буква "ю" в последовательность ',Pos('ю',s)=0?'не ':'',
      'входит');
  if s.Intersect('шина').Count=4 then
    Writeln('Посреди знаков есть все буквы слова "шина"')
  else Writeln('Среди знаков нет всех букв слова "шина"');
  if s.Matches('ноон').Countgt;0 then
    Writeln('Есть соседствующие буковкы "он" либо "но"')
  else Writeln('Нет соседствующих букв "он" либо "но"');
  if s.ToCharArray.Pairwise((x,y)-gt;x=y).Countgt;0 then
    Writeln('Есть пара соседствующих одинаковых знаков')
  else Writeln('Нет пары соседствующих одинаковых символов')
end.

Пример:
Введите строчку: наша пища хороша, но не так, чтоб очень. соответственно, мы не очень толсты! как-то так.
Пробелов: 12
Буковка "ю" в последовательность не заходит
Среди знаков есть все буковкы слова "шина"
Есть соседствующие буковкы "он" либо "но"
Есть пара соседствующих схожих символов