двумерные массивы

[Ранис]

дан двумерный массив 5х5. упорядочить элементы последнего столбца матрицы по возрастанию значений

[Nik Raider]

Что-то типа такого

uses crt;
var i,j,n,m: byte;
       a: array [1..100,1..100] of integer;
begin
ClrScr;
randomize;
n:=5;
   Writeln('Матрица:');
for i:=1 to n do
  begin
   for j:=1 to n do
     begin
     a[i,j]:=random(100)-10;
     Write(' ',a[i,j],' ');
     end;
   Writeln;
   end;
   for i:=1 to n-1 do
   for j:=i to n do
   begin
     if a[i,n]>a[j,n] then
      begin
      m:=a[i,n];
      a[i,n]:=a[j,n];
      a[j,n]:=m;
      end;
   end;
   Writeln('Сортированная матрица:');
  for i:=1 to n do
  begin
   for j:=1 to n do
     begin
     Write(' ',a[i,j],' ');
     end;
   Writeln;
   end;
  Readln;
end.