Как распечатать массивы в две строки,один под другим? (№2 в картинке)

program Massiv;
var
a: array [1..10] of integer;
b: array [1..10] of integer;
N:integer;
j:integer; // переменная для подсчета размера нового массива
i:integer; // счетчик в цикле
begin
// ввод размера масива
writeln('Введите N (N<=10)');
readln(N);
writeln('Значения массива А');
// ввод значений масива
for i:=1 to n do begin write('a[',i,']=');readln(A[i]); end;
// решение
j:=0; // начальное значение размера нового массива
for i:=1 to n do begin // цикл для обхода массива
if (a[i] mod 2)=0 then // условие для фор\мирования нового массива
begin
inc(j); // увеличение размера формирующегося массива
b[j]:=a[i]; // присвоение значения элементу массива b
end;
end;
// вывод результата
Writeln('Ответ');
Writeln('Размер полученного массива ',j);
Write('B[]: '); for i:=1 to j do Write(B[i],' ');
end.

program Massiv;
const n = 10;
var
  a: array [1..n] of integer;
  b: array [1..n] of integer;
  j: integer; // переменная для подсчета размера нового массива
  i: integer; // счетчик в цикле
 
begin
  randomize;
  writeln('Значения массива А');
  // генерация массива
  for i := 1 to n do 
  begin
    a[i] := random(21) - 10; // значения из интервала [-10 .. 10]
    write(A[i]:4); 
  end;
  writeln;
  // решение
  j := 0; // начальное значение размера нового массива
  for i := 1 to n do 
  begin// цикл для обхода массива
    if (a[i] mod 2) = 0 then // условие для фор\мирования нового массива
    begin
      inc(j); // увеличение размера формирующегося массива
      b[j] := a[i]; // присвоение значения элементу массива b
    end;
  end;
  // вывод результата
  Writeln('Ответ');
  Writeln('Размер полученного массива ', j);
  Write('B[]: '); for i := 1 to j do Write(B[i]:4);
end.