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

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