В одномерном массиве найти наибольшее отрицательное значение среди элементов с нечётными индексами - Free Pascal

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

Помогите с задачей, благодарен заранее: Одномерному массиву вычислить его значение и индекс, у которого не парный индекс и который высокий негативный.

Решение задачи: «В одномерном массиве найти наибольшее отрицательное значение среди элементов с нечётными индексами»

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

maxM:=1;
For i:=3 to N do
  If Odd(i) and (m[i]<0) then If m[i]>m[maxM] then maxM:=i;
Writeln('Index: ',maxM,'   element: ',m[maxM]);

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

Переменная maxM инициализируется значением 1.
Происходит цикл от 3 до N.
Для каждого нечетного индекса i проверяется условие:
- Если i нечетное число и элемент m[i] отрицательный, то проверяется условие:
  - Если m[i] больше текущего максимального отрицательного значения, то обновляется значение переменной maxM.
Выводится сообщение с индексом и значением максимального отрицательного элемента.