Дан массив из 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.