Developing.ru

Помогите пожалуйста решить, завтра сдавать уже,
В двумерном целочисленном массиве К элементы первого столбца заменить значениями равными среднему арифметическому максимального и минимального значений соответствующей строки. Выполнить сортировку элементов, расположенных выше главной диагонали матрицы по убыванию
Примечание. Среднее арифметическое найти с помощью оператора div.
вот чот начал, а дальше хз как
program name;
uses crt;

Const
kol=5;
mas:array[1..kol]
m=6;

Var
k,k2,k3:array[1..m, 1..m]of integer;
i,j: integer;


procedure InputDan;
begin
randomize;
writeln('Матрица');
for i:=1 to m do
begin
for j:=1 to m do
begin
k[i,j]:=-10+random(45);
write(k[i,j]:5);
end;
writeln;

Дальше в цикле проходишь по всем строкам, находишь в каждой минимум и максимум, тема сто раз обмусоливалась, см. раздел "Алгоритмы" или облако тегов. Потом находишь среднее арифметическое как (min+max)div 2 и записываешь его в первый столбец.
Элемент i,j выше главной диагонали матрицы, если i>j. Упорядочение массива тоже на форуме неоднократно делалось.