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

[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.

[TarasBer]

Вот поэтому я или обрамляю лишний раз парой begin-end, либо пишу ВЕСЬ заголовок в одну строку

for k:=1 to n do for i := n downto k+1 do if z[i-1,j]>z[i,j] then begin
  buf:=z[i,j];
  z[i,j]:=z[i-1,j];
  z[i-1,j]:=buf;
end;

Про одну строку - это скорее из вредных советов, но в этом тоже есть свой смысл - весь заголовок по смыслу является одним выражением "для всех пар, для которых так-то, сделать..."
Ещё вариант - не сдвигаться на 2 на if

Сообщение отредактировано: TarasBer - 3.11.2011 19:43