МАССИВЫ 1 задача СРОЧНО

[RomT24]

Уважаемые программисты!
Очень прошу вас помочь решить задачу:
"Дан целочисленный массив с N элементами. Сформировать новый массив, куда будут заносится соседние (то есть с индексами 1 и 2, 5 и 6 и т.д.) отрицательные элементы исходного массива"
Прилагаю свой код решения, но оно немного "кривое" - не всегда выводит нужные числа, не разберусь почему.
Пожалуйста, кто может, помогите лучше сегодня (или просто помогите=))!
Program NaZachet1;
uses crt;
var
a,b:array[1..100] of integer;
i,j,k,n:integer;
begin
clrscr;
read(n);
j:=1;
for i:=1 to n do
read(a[i]);
for i:=2 to n do
begin
if (a[i]<0) and (a[i-1]<0) then
begin
b[j]:=a[i-1];
j:=j+2;
b[j+1]:=a[i];
j:=j+2;
end;
end;
for k:=1 to j do
write(b[k],' ');
end.
Посмотрите, пожалуйста, что неверно!

[Greblin]

На первый взгляд увидел одну ошибку

begin
b[j]:=a[i-1];
j:=j+2;        {вот это лишнее}
b[j+1]:=a[i];
j:=j+2;
end;

Допустим у вас массив начинается так -5 -7. Тогда -5 у вас запишется в b[1], а -7 в b[3], после чего запись пойдёт в b[5]

[Sazary]

Насколько понял, должен выводить пары чисел?

Program NaZachet1;
uses crt;
var
a,b:array[1..100] of integer;
i,j,k,n:integer;
begin
clrscr;
read(n);
j:=1;
for i:=1 to n do
  read(a[i]);
writeln('---------');
for i:=2 to n do
  begin
  if (a[i]<0) and (a[i-1]<0) then
     begin
     b[j]:=a[i-1];
     b[j+1]:=a[i];
     j:=j+2;
     end;
  end;
for k:=1 to j-1 do
  begin
  write(b[k],' ');
  if k mod 2 = 0 then writeln;
  end;
readln;
end.

Пример ввода:

10
-6
-4
4
6
7
-7
-8
-9
4
5
---------
-6 -4
-7 -8
-8 -9

[pomoshnic]

...
For i:=1 to n do
B[i]:=a[i];
For i:=1 to n do
Begin
T:=0;
If odd(i) then if a[i]<0 then t:=a[i]; else if t<0 then
Begin
a[i-1]:=a[i];
A[i]:=t;
End;
End;
...

[RomT24]

Спасибо, я теперь убедился, что мой второй вариант (где j+2) верный! И представляете, мне на зачете препод свой вариант написал (не проверяя на компе), сказал, что он правильный, а мои нет!