// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите строку:');
var c:=s.GroupBy(t->t.ToLower).Select(t->(t.Key,t.Count))
.Where(t->t[0]<>' ').MaxBy(t->t[1]);
Writeln('Количество повторов символа "',c[0],'" равно ',c[1])
end.
Пример
Введите строку: Карл у Клары украл кораллы, Клара у Карла украла кларнет.
Количество повторов символа "а" равно 11
