Помогите пожалуйста! Дан массив из целых чисел

var a: array[1… 100] of integer; n, i, count: integer; begin randomize; count: =0; write ('n='); readln (n); for i: =1 to n do begin a[i]: =random (101) — 50; write (a[i], '); if (i mod 2=1) and (a[i] mod 2=0) then inc (count); end; writeln; writeln ('Count=', count); readln; end.