Дан массив из N элементов определить колличество элементов имеющие четные порядковые номера и являющиеся нечетными номерами

Uses crt; Var m:array[1..1000] of integer; I,j:integer; Begin Clrscr; Writeln('Введите размер массива '); Readln(n); Writeln('Массив: '); For i:=1 to n do Begin M[i]:=i; Write(m[i],' '); If i mod 2 =0 then j:=j+1; End; Writeln; Writeln('Количество элементов с четными номерами = ',j); Readkey; End.