Скажите для решения вот этой задачи "В массиве A (n) найти сумму положительных элементов, расположенных впереди первого отрицательного элемента" код является адекватным?

code:

var sum,i:integer;
begin
while  length(massiv)>i do
begin
if massiv[i]<0 then
begin
for i:=0 to high(massiv) do
begin
sum:=0;
sum:=sum+massiv[i];
edit5.Text:=FloatToStr(sum);

...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82605