Переформировать матрицу - столбцы по возрастанию их последних элементов

[HoroHoro]

Переформировать матрицу таким образом ,чтобы ее столбцы располагались по возрастанию их последних элементов.
Вот такая задачка. может кто решить?

[Teor]

Если я правильно понял, то вот

program matrica;
uses crt;
var mas:array[1..1000,1..1000] of integer; i,j,k,c,n:integer;
begin
clrscr;
writeln ('Введите размер');
readln (n);
for i:=1 to n do
begin
for j:=1 to n do
begin
mas[i,j]:=-random(50)+random(50);
write (mas[i,j],'  ');
end;
writeln;
end;
for j:=1 to n do
for k:=1 to n-1 do
if mas[n,k]>mas[n,k+1] then 
for i:=1 to n do
begin
c:=mas[i,k];
mas[i,k]:=mas[i,k+1];
mas[i,k+1]:=c;
end;
writeln;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write (mas[i,j],'  ');
writeln;
end;
readkey
end.

[HoroHoro]

похоже что так и есть. Спасибо.

[HoroHoro]

Teor. Спасибо за старания, но после написания программы увидел что она не работает. а именно на выходе получаются одни нули.

[Teor]

Хм... у меня все работает

[HoroHoro]

Прошу прощения, переписал второй раз. все работает. Правда ему кажется массив слишком большим для integer'a. пришлось заменить на [1..100,1..100]. Большое спасибо за потраченное время.

[HoroHoro]

хм.. после нескольких проверок оказалось, что программа делает не то, что нужно. А то, что нужно покажу на примере:
21 13 49 -> 49 21 13
15 18 36 -> 36 15 18
2 30 1 -> 1 2 30

[Teor]

... Я в тупике. Я несколько раз ее проверял и все правильно работало.

[Plague]

var a:array[1..100,1..100] of integer;
t:array[1..100] of integer;
i,j,n,k:integer;
begin
randomize;
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[j,i]:=random(100);
write(a[j,i]:5);
end;
writeln;
end;
k:=1;
i:=1;
while k<>0 do
begin
k:=0;
for j:=1 to n-i do
if a[j,n]>a[j+1,n] then
begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t;
k:=k+1;
end;
i:=i+1;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do write(a[j,i]:5);
writeln;
end;
end.

Вот так попробуйте.

[HoroHoro]

Большое всем спасибо, особенно teor'у. Прошу меня простить, по моей глупости программа работала некорректно. Проблема заключалась в том, что введя в условие фиксированное значение n(размера матрицы), программа отказывалась работать корректно. Но после того, как я заменил свое фиксированное значение на неизвестное, задаваемое в начале программы, то программа заработала как надо. Спасибо большое. теперь мне интересно, почему все так вышло)