Выделить в отдельный массив нечетные элементы массива, расположенные ниже побочной диагонали

const
  m = 4;
  n = 6; {макс. размер оотдельного массива}
 
type
  matrix = array [1..m, 1..m] of integer;
  vector = array [1..n] of integer;
var
  a : matrix;
  b : vector;
  i, j, k : integer;
 
procedure formB (z : matrix; var y : vector; var kk : integer);
var ii, jj : integer;
begin
  kk := 1;
  for ii := 1 to m do
    for jj := 1 to m do
      if (odd(a[ii,jj])) {если нечетное}
      and {И}
      (ii > m + 1 - jj) {ниже побочной диагонали}
      then {тогда}
      begin
        b[kk] := a[ii,jj];
        inc(kk)
      end
end;
 
begin
  {заполняем массив}  
  writeln('массив: ');
  randomize;
  
  for i := 1 to m do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(20) - 10;
      write(a[i,j]:4)      
    end;
    writeln
  end;
  {вызываем процедуру}
  formB(a, b, k);
  {выводим новый массив}
  writeln('массив из нечетных ниже побочной диагонали:');
  for i := 1 to k-1 do
    write(b[i]:4);
  readln
end.