Массив содержит 10 элементов целого типа. Из положительных элементов массива, имеющих нечетный индекс, сформировать новый массив и найти среднее арифметическое его элементов — Pascal(Паскаль)

program pr;

const
  n = 10;

var
  i, j, s: integer;
  a, c7: array [1 .. n] of integer;

begin
  s := 0;
  j := 0;
  for i := 1 to n do
    readln(c7[i]);
  for i := 1 to n do
    if (c7[i] > 0) and odd(i) then
    begin
      inc(j);
      a[j] := c7[i]
    end;
  if j <> 0 then
  begin
    for i := 1 to j do
    begin
      s := s + a[i];
      write(a[i], ' ')
    end;
    writeln;
    write(s / j:2:2)
  end;
  readln

end.