Найти наименьшее из чисел с четным номером - Pascal

Дан массив из N целых чисел. Числа вводятся рандомно на интервале от -10 до 10. Найти наименьшее из чисел с четным номером.

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

mn:=a[2];
for i:=4 to n do
if(i mod 2=0)and(a[i]<mn) then mn:=a[i];

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

Создается переменная mn, которая будет использоваться для хранения наименьшего числа с четным номером.
Устанавливается значение переменной mn равным значению элемента массива a с номером 2.
Запускается цикл for, в котором переменная i изменяется от 4 до n.
Внутри цикла проверяется, является ли текущее значение i четным (проверка с помощью оператора остатка от деления mod 2=0) и меньше ли значение элемента массива a с номером i значения mn.
Если обе проверки верны, то значение переменной mn заменяется на значение элемента массива a с номером i.