Вводится последовательность чисел , 0 - конец последовательности . вычислить сумму чисел после первого отрицательного

Если на паскале  program dds; const n=10; var a:array[1..n]of integer; i,o,s,z:integer; begin randomize;s:=0;z:=0;a[n]:=0; a[n]:=0;for i:=1 to n-1 do a[i]:=random(10)-5; for i:=1 to n do if (a[i]<0) and (z=0) then begin z:=1; for o:=i+1 to n do s:=s+a[o];end ;for i:=1 to n do write(a[i]:4);writeln; write('symma=',s); readln; end.