сортировка по столбцам, сортировка двумерного массива по столбцам Опции

[nesta_diima]

Подскажите с сортировкой двумерного массива по столбцам, что-то не выходит. Вот наработка

uses crt;
const
     nmax=100;
type
    arr=array[0..nmax,0..nmax] of integer;
var
   z:arr;
   s,i,j,buf,n,m,p:integer;
begin
     Writeln('ВВод матрицы');
     writeln('Ввод кол-вo строк');
     readln(n);
     writeln('Ввод кол-во стоблцов');
     readln(m);
     for i:=1 to n do
         begin
             for j:=1 to m do
             begin
             Writeln('Ввод ',i,' ',j,'элемента матрицы');
             readln(z[i,j]);
             end;
             end; for j:=1 to m do
             begin
                 for i:=1 to n do
                 if z[i,j]>z[i+1,j] then
                 begin
                buf:=z[i,j];
               z[i,j]:=z[i+1,j];
               z[i+1,j]:=buf;
                   end; end;
          for i:=1 to n do
         for j:=1 to m do
         begin
         write(z[i,j]:4);
         if j=m then writeln();
         end;

end.