Найти сумму элементов массива с четными номерами позиции В Pascal. Очень нужно!!!!

Var summ:integer;
begin
  var a := Arr(1,2,3,4,5,6,7,8,9);
  for var i:=0 to 8 do  begin
      write([,a[i],] );
  end;
  writeln();
  for var i:=0 to 8 do  begin
      if (i mod 2)=1 then begin
           summ:=summ+a[i];
           write([,a[i],] );
      end;
  end;
  writeln(summa = ,summ);
end.