Сортировка двумерного массива

const
  nmax=100;
type
  tArr=array[1..nmax,1..nmax] of integer;
var
  i,j,n1,m1,n2,m2,max,k,tmp,p: integer;
  a,d: tArr;
begin
  randomize;
  n1:=3; m1:=8;
  writeln('Матрица a:');
  for i:=1 to n1 do
  begin
    for j:=1 to m1 do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  n2:=4; m2:=5;
  writeln('Матрица d:');
  for i:=1 to n2 do
  begin
    for j:=1 to m2 do
    begin
      d[i,j]:=random(99)+1;
      write(d[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  max:=d[2,1]; k:=1;
  i:=2;
  for j:=2 to m2 do
    if d[i,j]>max then
    begin
      max:=d[i,j];
      k:=j;
    end;
  writeln('Максимальный элемент 2-й строки матрицы d=',d[2,k],'; столбец ',k);
  
  for i:=2 to n1 do
    for p:=n1 downto i do
    if a[p-1,k]<a[p,k] then
    begin
      tmp:=a[p-1,k];
      a[p-1,k]:=a[p,k];
      a[p,k]:=tmp;
    end;
    
  writeln('Измененная матрица a:');
  for i:=1 to n1 do
  begin
    for j:=1 to m1 do
      write(a[i,j]:4);
    writeln;
  end;
  
    for i:=2 to n2 do
    for p:=n1 downto i do
    if d[p-1,k]<d[p,k] then
    begin
      tmp:=d[p-1,k];
      d[p-1,k]:=d[p,k];
      d[p,k]:=tmp;
    end;
    
  writeln('Измененная матрица d:');
  for i:=1 to n2 do
  begin
    for j:=1 to m2 do
      write(d[i,j]:4);
    writeln;
  end;
  
  readln;
end.