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

program massivA;
uses crt;
const N=18;
         M=18;
var a:array [1..N, 1..M] of integer;
       I, J:integer;
begin
clrscr;
randomize;
for i:=1 to N do
    for j:=1 to M do
    a [I, J]:=random (201)-100;
for i:=1 to N do
begin
  for j:=1 to M do
    write (' ',a[I,J]);
    writeln
end;
readln
end.

program massivA;
 
uses crt;
 
const
  N = 18;
  M = 18;
 
var
  a: array [1..N, 1..M] of integer;
  k, I, J: integer;
  b: array [1..N * m] of integer;
 
begin
  clrscr;
  randomize;
  for i := 1 to N do
    for j := 1 to M do
      a[I, J] := random(201) - 100;
  for i := 1 to N do
  begin
    for j := 1 to M do
      write(a[I, J]:4);
    writeln
  end;
  for i := 1 to n do
  begin
    for j := 1 to m do
      if (i + j > m + 1) then 
      begin
        inc(k);             
        b[k] := a[i, j];    
      end;
  end;
  writeln;
  for i := 1 to k do
    write(b[i]:4);
  readln;
end.