Найти слово, содержащее наибольшее количество вхождений данной буквы - Free Pascal

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

Описать функцию f (x, y) - количество букв х в слове y. Составить программу, которая находит слово, содержащее наибольшее количество вхождений данной буквы.

Решение задачи: «Найти слово, содержащее наибольшее количество вхождений данной буквы»

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

function CounterOfLetters(Letter : Char; sWord : String) : Word;
var ch : char;
begin
  Result := 0;
  for ch in sWord do
    if ch = Letter then Inc(Result);
end;

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

В данном коде написана функция CounterOfLetters, которая принимает два аргумента: Letter (буква) и sWord (слово). Функция считает количество вхождений данной буквы в слово и возвращает это количество. В первой строке объявлена функция CounterOfLetters с двумя аргументами: Letter (тип Char) и sWord (тип String). Далее, внутри функции, объявлена переменная ch типа Char, которая будет использоваться в цикле для прохода по каждому символу в слове. Внутри цикла for, который проходит по каждому символу в слове, проверяется равенство текущего символа переменной Letter. Если это условие выполняется, то к переменной Result прибавляется единица. По завершению цикла, функция возвращает значение переменной Result.