Дан одномерный массив размерностью N целых чисел. Найти разницу произведений элементов на парных и не парных местах — Pascal(Паскаль)

Program raznica;
 
Var a: array [1..100] of integer;
    i, n: integer;
    pa, pb, delta: longint;
    
Begin
    Write('vvedite kol-vo chisel: '); Readln(n);
    For i := 1 to n do begin
        write('vvedite ', i, ' chislo: '); Readln(a[i]);
    End;
    pa := 1; {chet}
    pb := 1; {nechet}
    
    for i := 1 to n do begin
        if (i mod 2 = 0) then pa := pa * a[i] else pb := pb * a[i];
    end;
    
    delta := pa - pb;
    
    writeln('raznica proizvedenij: ', delta);
 
End.