Склавиатуры вводится число n,а за ним-массив из n элементов.найдите и выведите на экран произведение всех положительных элементов массива с чётными индексами.

Var  a: array[1..100] of integer; 
 i, n: integer;  
p: integer; 
  begin  
randomize; 
 writeln('massiv: ');
  readln(n);  
for i := 1 to n do  
 a[i] := random(10) - 5; 
 writeln('Исходный массив: '); 
for i := 1 to n do 
 write(a[i], ' '); 
 p:=1;  
for i := 1 to n do  
   if (a[i]>0) and (i mod 2=0) then p:=p*a[i];  
    writeln('Произведение  =',p); 
readln.
  end.

Var A,P:real;
N:integer;
Begin
P:=1;
Write('N = ');ReadLn(N);
WriteLn('Введи массив');
For N := 1 to N do
Begin
ReadLn(A);
if (N mod 2 = 0)and(A>0) then P:=P*A
End;
WriteLn(P)
End.