Дан двумерный массив. Просмотреть четные строки и создать одномерный массив из отрицательных элементов этих строк

uses
   crt;
 
const 
  maxSize = 5;
 
type
   MyArray = array [1..10] of integer;
   MyArray2D = array [1..maxSize, 1..maxSize] of integer;
 
procedure inputArray(var a : MyArray2D; var size : integer);
var
  i : integer;
  j : integer;
begin
  repeat
    {$I-}
    read(size);
    {$I+}
  until((IOResult = 0) and (size > 0) and (size <= maxSize));
 
  for i := 1 to size do
    for j := 1 to size do
      read(a[i, j];
 
end;
 
procedure outputArray(const a : MyArray2D; const sizeA : integer; const b : MyArray; const sizeB : integer);
var
  i : integer;
  j : integer;
begin
  for j := 1 to sizeA do
  begin
    for i := 1 to sizeA do
      write(a[i, j], ' ');
    writeln;
    writeln;
  end;
  for i := 1 to sizeB do
    write(b[i], ' ');
end;
 
procedure putInMassive(const a : MyArray2D; const sizeA : integer; var b : MyArray; var sizeB : integer);
var
  i : integer;
  j : integer;
begin  
  sizeB := 0;
  for j := 1 to sizeA do
    if (j mod 2 = 0) then
      for i := 1 to sizeA do
        if (a[i, j] < 0) then
        begin
          inc(sizeB);
          b[sizeB] := a[i, j];
        end;
end;
 
var 
  a : MyArray2D;
  b : MyArray;
  sizeB : integer;
  sizeA : integer;
 
begin
  inputArray(a, sizeA);
  putInMassive(a, sizeA, b, size);
  outputArray(a, sizeA, b, sizeB);
end.