Дан одномерный массив размером 25, диапозон значений заданный рандомом и равен 250, найти минимальное занчение для нечетных индексов, максимальное для четных

Program test;
const n = 25;
var i,min,max:integer;
m:array [1..n] of integer;
begin
randomize;
min:=251;
max:=-1;
for i:=1 to n do
m[i]:=random(250);
for i:=1 to n do
if i mod 2 = 0  
then if m[i]<min then min:=m[i] 
else if m[i]>max then max:=m[i];
writeln(min);
writeln(max);
end.