Дана послeдоватeльность из n символов. подсчитать наибольшее число букв “а” идущих подряд в данной последовательности. паскаль, .

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

begin
  var s:=ReadlnString('Введите строку:');
  Writeln('Максимальная длина цепочки "а" равна ',
    s.Matches('(a+)').Select(m->m.Value).SortedDescending.
    Take(1).JoinIntoString.Length)
end.

Пример
Введите строку: tbtgt adaaad aa sdfsfswe dsssfsd dfdssdfsf gdff fsqe
Максимальная длина цепочки "а" равна 9