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

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