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

var     a: array [1..100] of integer;     n, c: integer;     p: real; begin     randomize;     write('n? ');     readln(n);     write('array:');     for c := 1 to n do begin         a[c] := random(9) + 1;         write(' ', a[c]);     end;     writeln;     c := 1;     p := 1;     while c <= n do begin         p := p * a[c];         inc(c, 2);     end;     writeln('result: ', p:0:0); end.