Одномерный массив Delphi

[Op1nG.Spark]

Доброго времени суток!
Ребята подскажите как наити сумму элементов массива, расположенных между первым и вторым отрицательными элементами.

[Zer0]

e1:=0; e2:=0;
for i:=1 to n do
 if (e1=0) and (a[i]<0) then e1:=i
 else if (e2=0) and (a[i]<0) then begin
  e2:=i;
  break;
 end;
if (e1=0) or (e2=0) then Writeln('Нету двух отриц. элементов) else begin
s:=0;
for i:=e1+1 to e2-1 do s:=s+a[i];
writeln('Сумма = ',s);
end;

[Op1nG.Spark]

спасибо большое)