Найти сумму элементов массива с четными номерами позиции

В 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.