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

Question

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

Answer 1

// 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 sdfsfsaaaaawe dsssfsd dfdsaaaaaaaaasdfsf gdff fsaaaaaaqe
Максимальная длина цепочки "а" равна 9