Упорядочить колонки матрицы по возрастанию

[wlll]

Упорядочить колонки матрицы по возрастанию
Pascal

[wlll]

program z5;
 uses crt;
 var a:array[1..5,1..5] of integer;
  i,j,c:integer;
  begin
  clrscr;
 for i:=1 to 5 do
  for j:=1 to 5 do
  a[i,j]:=random(10)-3;
  for i:=1 to 5 do
    begin
     for j:=1 to 5 do
     write(a[i,j]:4);
     writeln;
    end;
   for i:=4  downto 1 do
   for j:=1 to i do
   if a[j,5]>a[j+1,i] then
     begin
     c:=a[i,j];
     a[i,j]:=a[j+1,i];
     a[j+1,i]:=c;
     end;
     writeln('rezultat');
     for i:=1 to 5 do
      begin
      for j:=1 to 5 do
      write(a[i,j]:4);
      writeln;
      end;
      readln;end.

[wlll]

так чтоли?