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

Program Mass;

var i, n, m: integer;

A:array [1 ... 20] of integer;

begin

n:=1;

for i:=1 to 20 do

A[i]:=random (1000) ;

m:=A[1];

for i:=1 to 20 do

if i mod 2 = 1 then

begin

n:=n*A[i];

if m > A[i] then

m:=A[i];

end;

write (' произведение нечётных = ', n) ;

write ('наименьшее из нечётных = ', m) ;

end.