Слова в ряду, которые встречаются чаще всего - PascalABC.NET

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

Помогите, пожалуйста, написать программу. Слова в ряду разделены символом пробел. Напечатать слова, которые встречаются чаще всего(если такие есть).

Решение задачи: «Слова в ряду, которые встречаются чаще всего»

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

begin
  var a := ReadLnString('Введите слова через пробел:').ToWords.GroupBy(word->word).OrderByDescending(words->words.count);
  Write('Чаще всего встречаются слова: '); a.Where(words->words.count=a.First.Count).Select(words->words.key).Print(', '); WriteLn('.');
end.

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

В этом коде задача состоит в том, чтобы найти слова, которые встречаются в строке наиболее часто. Вот список действий, которые выполняются в коде:

Переменная a принимает строку, введенную пользователем, и преобразует ее в массив слов с помощью метода ToWords.
С помощью метода GroupBy слова группируются по словам.
С помощью метода OrderByDescending группы слов сортируются по убыванию количества слов в каждой группе.
С помощью метода Where выбираются только те группы слов, которые содержат наибольшее количество слов.
С помощью метода Select выбираются ключи (слова) из этих групп.
С помощью метода Print выбранные слова выводятся на экран через запятую и пробел.
Выводится точка в конце строки.