Помогите с поиском наиболее повторяющейся буквы

[MaxMelnikov]

Вводится произвольный текст. Найти букву, с которой начинается наибольшее количество слов. Оформить как функцию, вызываемую из основной программы. Максимальная длина текста - параметр.

Я думаю что для решения нужно создать массив, в который будут заноситься буквы слов. А затем как-то проверить этот массив на наиболее повторяющийся элемент. Помогите с написанием цикла для поиска наиболее повторяющегося элемента в массиве

[Plague]

вот алгоритм поиска часто встречающейся буквы в строке.

var a:string;
    i,j,m,p,n,l:integer;
begin
  readln(a);
  m:=1;
  p:=1;
  l:=length(a);
  for i:=1 to l do 
    begin
      n:=0;
      for j:=1 to l do 
        if a[i]=a[j] then n:=n+1;
      if n>m then 
        begin
          m:=n;
          p:=i;
        end;
     end;
  writeln(a[p]);
end.

переделав его можно решить вашу задачу.
нужно учесть что перед буквой должен быть пробел.