Найти номер первого максимального элемента - Free Pascal

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

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

Решение задачи: «Найти номер первого максимального элемента»

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

var a, i, m, mi: Integer;
begin
  Assign(input,'input.txt'); Reset(input);
  m:=-MaxInt-1; mi:=1;
  while not SeekEoF do begin
    Read(a); Inc(i);
    if m<a then begin
      m:=a; mi:=i;
    end;
  end;
  if i=0 then WriteLn('Файл пуст.')
  else WriteLn('max ',m,' at ',mi);
  Close(input);
end.

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

Объявляются четыре переменные: a, i, m и mi.
Открывается файл input.txt для чтения.
Инициализируются переменные m и mi. Значение m устанавливается на -MaxInt-1, а mi на 1.
Запускается цикл while, который выполняется до тех пор, пока не будет достигнут конец файла.
В каждой итерации цикла считывается значение из файла и увеличивается счетчик i.
Если текущее значение a больше, чем значение m, то обновляются значения m и mi.
После завершения цикла выводится сообщение, если файл пуст, или номер первого максимального элемента, если он был найден.
Файл закрывается.