var i,j,n,t,m:integer;
a:array of array of real;
k:real;
begin
Write('Введите размерность матрицы ');
readln(n);readln(m);
SetLength(a,n,m);
for i:=0 to n-1 do
for j:=0 to m-1 do
readln (a[i,j]);
readln(t);
for i:=0 to n-2 do
for j:=0 to n-i do
if a[j,t]>a[j+1,t] then begin
k:=a[j,t];
a[j,t]:=a[j+1,t];
a[j+1,t]:=k;
end;
writeln ('отсортированный массив ');
for i := 1 to n do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
readln;
end.