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

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