Найти сумму элементов массива с четными номерами позиции В 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.