Дан одномерный массив чисел. Если творенье частей с чётными номерами больше

Program n1;
const n=15;
var a: array[1..n] of integer;
pc,pn,nmin,nmax,max,min,i: integer;
begin
randomize;
pc:=1;
pn:=1;
write('массив: ');
for i:=1 to n do begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
for i:=1 to n do if i mod 2=0 then pc:=pc*a[i] else pn:=pn*a[i];
if pcgt;pn then begin
max:=a[1];
for i:=2 to n do if a[i]gt;max then begin
max:=a[i];
nmax:=i;
end;
writeln('номер наибольшего элемента: ',nmax);
end else
begin
min:=a[i];
for i:=2 to n do if a[i]lt;min then begin
min:=a[i];
nmin:=i;
end;
write('номер малого элемента: ',nmin);
end;
end.

// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!

type
  R=sequence of integer;

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  var P:R-gt;BigInteger:=t-gt;t.Aggregate(BigInteger(1),(p,q)-gt;p*q);
  if P(a.Where(t-gt;t.IsEven))gt;P(a.Where(t-gt;t.IsOdd))
  then Writeln('Номер наибольшего элемента: ',a.IndexMax+1)
  else Writeln('Номер малого элемента: ',a.IndexMin+1)
end.

Примеры
n= 17
31 98 7 42 -70 -98 -34 43 -48 -40 -28 -35 15 26 25 1 -66
Номер минимального элемента: 6

n= 15
95 88 -82 96 87 -68 17 40 -66 1 60 -25 -78 -55 -55
Номер наибольшего элемента: 4