В линейном массиве определить минимальный элемент из элементов массива,имеющих нечетные номера

const     handsfree = true; var     a: array[1..100] of real;     i, n: integer;     min: real; begin     {ввод массива}     if handsfree then         n := random(20) + 5     else begin         write('n = ');         readln(n);     end;          writeln('Данные массива:');     for i := 1 to n do     begin         if handsfree then begin             a[i] := random(100);             write(a[i], ' ');         end         else readln(a[i]);     end;     writeln();              {минимум и максимум}     min := a[1];     for i := 1 to n do     begin         if (min > a[i]) and (i mod 2=1) then min := a[i];     end;     writeln('min = ', min); end.