Сортировка в массиве Опции

[Gl00M]

Дано было мне задание: отсортировать массив по возрастанию первого столбца...
вот я отсортировал первый столбец...

uses Crt;
const n=5;
m=3;
var a,b,c:array[1..n,1..m] of integer;
i,j:word;
min,buf,k,t:integer;
Begin
randomize;
ClrScr;
For i:=1 to n do begin
 For j:=1 to m do begin
  a[i,j]:=50-random(100);
  write(a[i,j]:4);
  b[i,j]:=a[i,j];
 end;
 writeln;
end;

for i:=1 to n do begin
 min:=i;
 for k:=i+1 to n do if b[k,1]<b[min,1] then min:=k;
 buf:=b[i,1];
 b[i,1]:=b[min,1];
 b[min,1]:=buf;
end;

writeln;

For i:=1 to n do begin
 For j:=1 to m do begin
  write(b[i,j]:4);
 end;
 writeln;
end;
readln;
End. 

.
Но это оказалось не совсем правильно... надо, чтобы еще и элементы строки "тянулись" за отсортировочнм элем-ом...
как?

[volvo]

Рассматривай матрицу, как массив векторов, и будет тебе счастье:

const
  n = 5;
  m = 3;
type
  TVector = array[1 .. m] of integer;
  TMatrix = array[1 .. n] of TVector;

var
  buf: TVector;

...
{ Собственно, сортировка: }
for i:=1 to n do begin
  min:=i;
  for k:=i+1 to n do if b[k,1]<b[min,1] then min:=k;

  { Меняешь не один элемент, а всю строку... }
  buf:=b[i]; b[i]:=b[min]; b[min]:=buf;

end;

Это, кстати, написано здесь:
FAQ: Как задать матрицу, чтобы быстро поменять местами ее строки