Типизированные файлы: сколько раз максимальная компонента файла встречается в этом файле? - PascalABC.NET

Помогите пожалуйста. Составьте программу подсчета того, сколько раз максимальная компонента файла встречается в этом файле.

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

read(f,mx);
k:=1;
while not eof(f) do
 begin
  read(f,a);
  if a=mx then inc(k)
  else if a>mx tnen
   begin
    mx:=a;
    k:=1;
  end;
 end;

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

В данном коде на языке PascalABC.Net выполняется подсчёт максимальной компоненты в типизированном файле:

read(f,mx); — считывание из файла f максимального значения mx.
k:=1; — инициализация счётчика.
while not eof(f) do — цикл по файлу, пока не достигнут конец файла.
read(f,a); — считывание из файла f значения переменной a.
if a=mx then inc(k) — если текущее значение a равно максимальному значению mx, то увеличиваем счётчик k на единицу.
else if a>mx tnen — если текущее значение a больше максимального значения mx, то
begin — начало блока.
mx:=a; — обновляем значение максимального значения mx на текущее значение a.
k:=1; — обновляем значение счётчика k на единицу.
end; — конец блока.
end; — конец цикла. Стоит отметить, что в данном коде не обрабатывается случай, когда в файле встречаются два или более максимальных значения, а также не проверяется, является ли файл пустым.