Найти разности максимальных и минимальных элементов столбцов массива, записать их в одномерный массив

Program Prog;
Uses crt;
Const m=4; n=4;
Var a: array [1..n,1..n] of shortint;
b: array [1..n] of shortint;
c,min,max,y:shortint;
x,i,j,k,l,p:integer;
Begin
Clrscr; randomize;
Writeln('Ishodnie dannie:');
for i:=1 to n do
begin
for j:=1 to m do
begin
c:=random(5*m*n)+1;
a[i,j]:=c-50;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
writeln('Novii massiv:');
k:=1;
l:=1;
For i:=1 to n do begin
min:=a[1,j];
For j:=1 to m do
begin
If a[i,j]<min then
begin
min:=a[i,j];
end;
if a[i,j]>max then
begin
max:=a[i,j];
end;
if j=m then begin
b[i]:=max-min;
end;
end;
 
end;
 
For i:=1 to n do begin
if a[i,2]>a[i+1,2] then begin
x:=a[i,2];
a[i,2]:=a[i+1,2];
a[i+1,2] := x
end;
end;
 
For i:=1 to N do
begin
for j:=1 to M do write(A[i,j]:4);
writeln;
end;
END.

Program Prog;
Uses
  crt;
Const
  m=6; n=4;
Var
  a: array [1..n,1..m] of integer;
  b: array [1..m] of integer;
  min,max,y:integer;
  x,i,j,k,l,p:integer;
Begin
  Clrscr; randomize;
  Writeln('Ishodnie dannie:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(m*n) - m*n div 2;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  writeln;
 
  k:=1;
  l:=1;
  For j:=1 to m do
    begin
      min:=a[1,j];
      max:=a[1,j];
      For i:=1 to n do
        begin
          If a[i,j]<min then
            min:=a[i,j];
          if a[i,j]>max then
            max:=a[i,j];
          b[j]:=max-min;
        end;
    end;
  writeln('Сформированный вектор В:');
  for i:=1 to m do
    write(b[i]:4);
 
  for j:=1 to m-1 do
    for l:=j+1 to m do
      if (a[2,j]>0) and (a[2,j]<a[2,l]) then
        begin
          x:=a[2,j];
          a[2,j]:=a[2,l];
          a[2,l]:=x;
        end;
  writeln;
  writeln('Novii massiv:');
  For i:=1 to N do
    begin
      for j:=1 to M do
        write(A[i,j]:4);
      writeln;
    end;
  readln;
END.