Для массива напишите фрагмент программы, который выводит на экран значения всех элементов с нечётными индексами — Pascal(Паскаль)

const
m=const1;
n=const2; {const1<const2}
var 
mas : array [m..n] of integer;

const
  m = 3;
  n = 10;

var
  i: integer;
  a: array [m .. n] of integer;

begin
  for i := m to n do
  begin
    a[i] := random(20);
    write(' ', a[i]:3);
  end;
  writeln();
  writeln('-------');

  for i := m to n do
    if i mod 2 <> 0 then
      write(' ', a[i]);

end.