Упорядочивание матрицы...

[we4r]

Дана матрица xij, получить и вывести на экран новую матрицу yij, в которой расположить элементы каждого столбца в порядке убывания их значений.

Помогите плиззз... Я написал программу, но она не работает, в чем ошибка? Каков будет правильный результат? Заранее спасибо!


program prog_2_6;
const
n=11;
m=4;
type vx=array[1..n,1..m] of real;
var
x:vx;
i,j:integer;
a:real;
begin
for i:=1 to n do
for j:=1 to m do
begin
write(j,'-й элемент ',i,'-й строки');
readln(x[i][j]);
end;
writeln('Содержимое до обработки');
for i:=1 to n do
begin
for j:=1 to m do
write(x[i,j]:10:2);
writeln;
end;
a:=0;
begin
for j:=1 to m do
for i:=1 to n do
if x[i,j]<x[i+1,j] then
end;
a:=x[i,j]; x[i,j]:=x[i+1,j];
x[i+1,j]:=a;
writeln('Преобразованная матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(x[i,j]:10:2);
writeln;
end;
end.