помогите исправить ошибку

[Deniska112]

Всем привет!Вот возник вопрос есть программ которая считает сумму между первым и вторым отрицательным числом включительно
пример 1 2 -4 6 1 -4 9 получится -1 но через функцию что то не получается поскажите плиз вот текст

Program massiv;
const n=32;
type
mass=array [1..n] of integer;
function sum (var x:mass;i,k,q,l:integer):integer;
begin
  l:=0;
  k:=0;
  for i:=1 to n do
    if x[i]<0 then begin
      if (l<>0) and (k=0) then k:=i;
      if l=0 then l:=i;
    end;
q:=0;
for i:=1 to k do
sum:=q+x[i];
end;
var i,k,l,q,w:integer;
x:mass;
begin
randomize;
for i:=1 to n do begin
x[i]:=random(30)-7;
write (x[i]:5);
end;
begin
w:=sum(x,i,k,q,l);

writeln('     symma megdy 1 i 2 otryzatelnimy vklychitelno ravna : ', w:5);
readln;
end;
end.

[megachuhancer]

А если отрицательных чисел больше двух, между какими надо находить сумму?

[Serge_Bliznykov]

megachuhancer, так в условии задачи ясно же сказано: "между первым и вторым отрицательным числом"
а там их пусть хоть сто будет...

___________________________________ __________________________________
Deniska112, ошибка номер раз - цикл надо крутить от l (а не от 1-цы),
ошибка номер два - не наращиваете Q в цикле.
конец функции SUM должен быть такой:

q:=0;
for i:=l to k do
  q:=q+x[i];
sum := q
end;

[Serge_Bliznykov]

а вообще я бы предложил такой вариант (на основе Вашего, но чуть исправленный):

program massiv;
const n = 32;
type
  mass = array[1..n] of integer;

function sum(arrX: mass): integer;
var i, q, l, k: integer;
begin
  l := 0;
  k := 0;
  q := 0;
  for i := 1 to n do
  begin
    if arrX[i] < 0 then begin
      if (l <> 0) and (k = 0) then k := i;
      if l = 0 then l := i;
    end;
    if ((l <> 0) and (k = 0)) or (i = k) then q := q + arrX[i];
  end;
  sum := q;
end;
var
  x: mass;
  w, i: integer;
begin
  randomize;
  for i := 1 to n do begin
    x[i] := random(30) - 7;
    write(x[i]: 5);
  end;
  w := sum(x);
  writeln('     symma megdy 1 i 2 otryzatelnimy vklychitelno ravna : ', w: 5);
  readln;
end.

[Stilet]

но через функцию что то не получается

Я бы однозначно прогу упростил до такого:

  var k,s,i:integer;
  function sum(i,s:integer):integer; begin   sum:=s+i; end;
begin
   repeat
    read(i);
    if i<0 then inc(k);
    if k=1 then
      s:=sum(i,s);
   until i=0;
 writeln(s);
 readln;readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Или примерно такого...