В одномерном массиве состоящем из n целых элементов вычислить: 1) количество нечетных элементов,стоящих на нечетных местах в массиве — Pascal(Паскаль)

Const
  N = 20;

Var
  A: array [1 .. N] of integer;
  j, Count: 1 .. N;

Begin
  Randomize;
  Count := 0;
  for j := 1 to N do
  begin
    A[j] := random(100);
    if odd(j) and odd(A[j]) then
      Inc(Count)
  end;
  writeln(Count)

End.