Сформировать одномерный массив из элементов матрицы, расположенных над главной диагональю

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b,c,d,e:array [1..nmax] of integer;
    n,nb,nc,nd,ne,i,j:byte;
 
 begin
clrscr;
repeat
write('Размер матрицы A до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Матрица A:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50)-25;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
nb:=0;nc:=0;nd:=0;ne:=0;
for i:=1 to n do
for j:=1 to n do
 begin
  if j>i then
   begin
    nb:=nb+1;
    b[nb]:=a[i,j];
   end;
  if j<i then
   begin
    nc:=nc+1;
    c[nc]:=a[i,j];
   end;
  if j<n-i+1 then
   begin
    nd:=nd+1;
    d[nd]:=a[i,j];
   end;
  if j>n-i+1 then
   begin
    ne:=ne+1;
    e[ne]:=a[i,j];
   end;
 end;
writeln('Массив элементов матрицы выше главной диагонали:');
for i:=1 to nb do
write(b[i]:4);
writeln;
writeln;
writeln('Массив элементов матрицы ниже главной диагонали:');
for i:=1 to nc do
write(c[i]:4);
writeln;
writeln;
writeln('Массив элементов матрицы выше побочной диагонали:');
for i:=1 to nd do
write(d[i]:4);
writeln;
writeln;
writeln('Массив элементов матрицы ниже побочной диагонали:');
for i:=1 to ne do
write(e[i]:4);
readln
end.