двумерные числовые массивы

Program min;
Uses crt;
Const n=4;
 var b:array [1..4,1..4] of integer;
     a:array [1..4] of integer;
     i,j,p,q:integer;
begin
clrscr;
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
writeln;
for j:=1 to n do begin
                      p:=1;;
                      for i:=2 to n do
                      p:=p*b[i,j];
                      a[j]:=p;
                      end;
Writeln (' proizvedenie elementov stolbcov ');
for j:=1 to n do
write (a[j]:4);
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
      if (a[j]>a[j+1]) then
      begin
       q:=a[j];
       a[j]:=a[j+1];
       a[j+1]:=q;
      end;
    end;
 end;
writeln (' CortiPoBka ');
for j:=1 to n do
write (a[j],' ');
writeln;
Readln
end.