Сформировать новый массив

program Project1;
 
var
  a: array [1..100] of integer; { Переменная для  хранения массива.}
  b: array [1..200] of integer; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i,j: integer; { Вспомогательные переменные для организации циклов.}
 
begin
  write('Введите значение максимального количества вводимых элементов массива: ');
  Readln(n);
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(a[i]);
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(a[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  j:= 0;
  for i:= 1 to n do
    if (i mod 2 = 0) and (a[i] mod 4 = 0) then
      begin
        b[j+i]:= a[i];
        b[j+i+1]:= a[n];
        inc(j);
      end
    else
      b[j+i]:= a[i];
  writeln;
  writeln('Новый массив: ');
  for i:= 1 to n+j do
    begin
      write(b[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  writeln;
  if j = 0 then
    writeln('Элементов c четными индексами и кратных 4 в массиве не обнаружено ')
  else
    writeln('Количество вставок: ',j);
  Readln;
end.