Дан одномерный массив. найти сумму отрицательных элементов, стоящих на четных местах. хелп, , ))

Program qq;
var a:array of [1..длина массива] of real;
     i:integer;
     summ:real;
begin
 summ:=0;
 for i:=1 to длина массива do read(a[i]);
 for i:=1 to длина массива do
  if (i mod 2 = 0) and (a[i]<0) then summ:=summ+a[i];
 writeln(summ);
end.