С какой цифры чаще всего начинаются элементы массива Опции

[Merhaba]

Помогите Пожалуйста решить задачу:
С клавиатуры вводятся количество чисел N и сами эти числа. Разработайте приложение, которое помещает эти элементы в массив, а потом подсчитывает, с какой цифры чаще всего начинаются элементы массива, и сколько таких элементов (элементы массива – целые числа; желательно обойтись без вложенных циклов).

[Lapp]

С клавиатуры вводятся количество чисел N и сами эти числа. Разработайте приложение, которое помещает эти элементы в массив, а потом подсчитывает, с какой цифры чаще всего начинаются элементы массива, и сколько таких элементов (элементы массива – целые числа; желательно обойтись без вложенных циклов).

Вот тебе набросок. Добавь все, чего не хвататет.

var
  a: array [1..100] of integer;
  f: array [0..9] of integer;
...

  readln(n);
  for i:=1 to n do readln(a[i]);
  for i:=0 to 9 do f[i]:=0;
  for i:=1 to n do begin
    d:= a[i];
    while d>9 do d:= d div 10;
    Inc(f[d])
  end;
  max:= 0;
  for i:=1 to 9 do if f[max]<f[i] then max:= i;
  writeln('самая частая начальная цифра: ',max,', с нее начинается ',f[max],' элементов');