Паскаль сортировка выбором

[neon21]

Мне нужна расположить столбцы матрицы по росту элементов второй строки (сортировка выбором). Я не знаю как эта записать помогите плиз
Пример:
Исходный массив:
7 4 2 8
6 4 1 5
8 6 5 2
4 8 2 9

Результирующий массив:
2 4 8 7
1 4 5 6
5 6 2 8
2 8 9 4

[Aleksandr H.]

реализация сортировки выбором только меняешь не 2 числа а 2 столбца (дополнительный цикл)

[newerow1989]

var p:array[1..10,1..10] of integer;
    i,j,z:integer;
    d:boolean;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   Repeat
      d:=true;
      For j:=2 to 10 do
         If p[2,j-1]>p[2,j] then
         begin
            d:=false;
            For i:=1 to 10 do
            begin
               z:=p[i,j-1];
               p[i,j-1]:=p[i,j];
               p[i,j]:=z;
            end;
         end;
   Until d;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
         Write(p[i,j],'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

Сойдет?