Паскаль. Не могу вывести получаемые при работе цикла значения в порядке возрастания.

[RAftel]

условие

Таблица футбольного чемпионата задана квадратной матрицей порядка N, в которой все элементы главной диагонали не используются, а каждый элемент, не принадлежащий главной диагонали, равен количеству очков, набранных в игре командой, игравшей на своем поле: 2 – выигрыш, 1 – ничья, 0 – поражение. Для команды i (1≤i≤N) в строке i указано количество очков, полученных на своем поле, а в столбце i – количество очков, потерянных на чужом поле.Найти номера ко-манд, занявших первые 3 места в чемпионате. Среди оставшихся команд найти набравшую больше всего очков в играх с командами, занявшими 3 первых места.

program lab3;
const n=5;
        m=5;
type
a = array[1..n,1..m] of real;
var mas: a;
    i,j: integer;
    max: real;
begin
for i:=1 to n do {ввод матрицы}
  begin
  writeln ('введите элементы', i,'-той строки');
  for j:=1 to m do read(mas[i,j]);
writeln;
end;
writeln ('Заданная матрица');
for i:=1 to n do {вывод матрицы}
  begin
  for j:=1 to m do write(mas[i,j],'  ');
writeln;
end;
max:=0; {сумма чисел в строке}
for i:=1 to m do
begin
  for j:=1 to n do
   begin
   max:=max+mas[i,j];
   end;
{if mas[i,j]>max then max:=mas[i,j];}
writeln(max);
max:=0;
end;
end.

пытался вставить оператор условия, но не вышло. При добавлении еще одного цикла сверху, тоже не совсем ясно как сделать.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

как формулируется задание? Какие значения надо вывести " в порядке возрастания" ?

А вообще, такие задачи обычно решаются с помощью сортировки.
Заполняйте массив нужными значениями, сортируйте его - профит!