ОТСОРТИРОВАТЬ максимумы по убыванию в матрице,а минимумы по возрастанию

[YooooO!!!]

Program pr;
uses crt;
var a:array [1..10,1..10]of integer;
var b:array [1..100]of integer;
n,m,e,j,i,h,t,k,o, max :integer;
begin
clrscr;
write('введие количество строк');read (m);
write('введите количество столбцов');read (n);
for i:= to m do
for j:=1 to n do
begin
gotoxy(1,3);write('введите a[',i,',',j,']');
read (a[i,j]);gotoxy(16,3);write(' ');
gotoxy (e+5*j,4+i);write (a[i,j]);
e:=5+e;
if j=n then e:=o;
end;
for i:=1 to n do
 begin
  max:=a[i,1];
  min:=a[i,1];
   for j:=2 to m do
     begin
       if a[i,j]>max then max:=a[i,j];
       if a[i,j]<min then min:=a[i,j];
     end;
  writeln;
  writeln('Min в ',i,' строке=',min,' ',',Max=',max);
end;

.....матрицу я построил найти наибольшие и наименьшие мне помогли.....а вот даль ваще беда ....ОТСОРТИРОВАТЬ эти максимумы по убыванию в матрице,а минимумы по возрастанию.Указать какое количество максимальных и минимальных элементов находица в каждом столбце!!!....: confused:...блин здавать через 8 часов

[Stilet]

Ты ничего не путаешь? Может тебе нужно получить вектор из экстремумов строк матрицы?