Помогите с задачей 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 Буква "ю" в последовательность не входит Среди символов есть все буквы слова "шина" Есть соседствующие буквы "он" или "но" Есть пара соседствующих одинаковых символов