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

[pavelmorash12]

Задан одномерный массив F(N). В данном массиве удалить все элементы, кратные 7. Массив распечатать. Во вновь образованной последовательности вычислить количество нечётных элементов и вставить это значение перед каждым отрицательным элементом. Значение количества и вновь образованный массив распечатать.
Подскажите, почему не выводится последний элемент массива?

const n=10;
Var 
   A: array [1..n] of integer;
   B: array [1..2*n] of integer;
   i, k, m, j, d: integer;
Begin 
For i:=1 to n do 
A [i]:= random (200)-100;
write('Исходный массив:');
for i := 1 to n do write(A[i]:4);
 writeln;
 j:=1;
 k:=0;
 Write('Массив без элементов, кратных 7: ');
For i:=1 to n do begin
 If (a[i] mod 7 <> 0) then begin b[j]:=a[i];
  Write(b[j]:5);
   j:=j+1;
   k:=k+1;
    end;
     end;
WRITELN;
d:=0;
m:=0;
For i:=1 to n do begin
  if (b[i] mod 2 <> 0) then m := m + 1;
  end; 
writeln('количество нечетных элементов: ', m);
For j:=k downto 1 do begin
 If (b[j] < 0) then 
 begin
 for i := k+d downto j+1 do
        b[i]:= b[i-1];
    b[j] := m;
 inc(d); 
    end;   
end;
write('Новый массив: ');
    for i := 1 to k+d do
        write(b[i]:4);
    writeln;
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[ViktorR]

Над полем редактирования находится кнопка [CODE].
Пиши текст программы, выделяй его и жми на кнопку. В том виде, как представлен твой код, читать сложно.

1. В одном цикле можно а) удалить элементы, кратные 7, b) подсчитать число нечётных элементов.
2. Поскольку из массива удаляются элементы, то массив можно оставить в исходном месте.
3. Поскольку есть второй массив с размерностью в два раза больше исходного (так понимаю, на случай не удаления элементов и все элементы отрицательные), то в него можно перенести все элементы последнего массива соблюдая правило. Без изысков - downto.
4. В программе есть переменная d. Она используется при инициализации переменной цикла for. Исходное значение для d - ноль. Инициализация переменной цикла выполняется один раз - в начале. Так что это:

for i := k+d downto j+1 do

неверное решение.