вот я отсортировал первый столбец...
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.
Но это оказалось не совсем правильно... надо, чтобы еще и элементы строки "тянулись" за отсортировочнм элем-ом...
как?