не сможетели помочь найти ощибку в программеона не выводит результат

[мария 12]

begin
k1:=0;
k2:=0;
i:=1;
while (i<=n) do
begin
readln(x[i]);
if x[i]<0 then
begin
if k1=0 then
begin
k1:=i;
i:=i+1;
s:=0;
k2:=0;
while (i<=n) and (k2=0) do
begin
readln(x[i]);
if x[i]>=0 then
begin
s:=s+x[i] ;
writeln(s)
end
else
k2:=i;
i:=i+1
end;
end;
end
else i:=i+1;
writeln(s)
end;
if (k1=0)or (k2=0) then
writeln('решений нет,нет 2х отрицательных элементов')
else
if k2=k1+1 then
writeln('Отрицательные элементы соседи');
readln;
end;

[Asinkrit]

Вся программа одна большая ошибка, найти ошибку значит переписать программу для вас, а вы даже не удосужились написать что должна делать данная программа..

[мария 12]

найти сумму элементов массива расположенных между первым и вторым отрицательными членамиза 1 проход по массиву