Определить, сколько раз буква встречается в тексте - PascalABC.NET

Формулировка задачи:

Составить программу для обработки данного текста. Определить какая буква о или входит в него чаще, и насколько?

Решение задачи: «Определить, сколько раз буква встречается в тексте»

Листинг программы

uses System.IO;
const Letters = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
begin
  MillisecondsDelta;
  for var cic := 1 to 10 do begin
 
  writeln(&File.ReadAllText('roman.txt',Encoding.Default).ToCharArray().
  Select(c->UpperCase(c)).Where(c-> Letters.IndexOf(c) > -1).
  GroupBy(c->c).OrderByDescending(c->c.count).Select(x->Format('{0}-{1}',x.key,x.count())).First());
 
  end; WriteLn(MillisecondsDelta / 10000);
end.

Объяснение кода листинга программы

В этом коде:

Используется пространство имен System.IO для работы с файлами.
Определена константа Letters, которая содержит все буквы русского алфавита.
Задается цикл от 1 до 10, который выполняет следующие действия: a. Чтение содержимого файла 'roman.txt' в строку. b. Преобразование строки в массив символов. c. Отбор только заглавных букв из массива. d. Отбор только букв, которые есть в константе Letters. e. Группировка одинаковых букв в группы. f. Сортировка групп в порядке убывания количества букв в группе. g. Форматирование и вывод названия и количества каждой группы на экран.
В конце выполнения цикла выводится время выполнения цикла в секундах.