Задача на МАССИВЫ Паскаль ОЧЕНЬ СРОЧНО!!!!

min:=a[1, 1];
nmin:=1;//номер столбца с мин
nmax:=1;//номер столбца с макс
max:=a[1, 1];//наш основной массив
tmp: array[ 1..n ] of integer;// временный одномерный массив
-------------------------------------
//ищем в каком столбце макс и мин элемент
for i:=1 to n do
for j:=1 to n do
begin
if max < a [ i, j ] then begin max:=a[ i, j ]; nmax:=i; end;
if min > a [ i, j ] then begin min:=a[ i, j ]; nmin:=i; end;
end;

//столбцы нашли, меняем их местами
for i:=1 to n do tmp[ i ]:=a[ nmax, i];//запоминаем элементы столбца с максимальным элементом во временный массив

for i:=1 to n do
begin
a[ nmax, i ]:=a[ nmin, i]; //перезаписываем столбец с макс эл. , столбцом с мин элементом
a[ nmin, i ]:=tmp[ i ]; //и наконец с временного массива заносим столбец в столбец с мин элементом
end;
//делал на скорую руку, могут быть ошибка, здесь только тело программы, думаю суть понятна будет

----------------------задача 2------------------
max:=a[1, 1];

//ищем в каком столбце макс элемент
for i:=1 to n do
begin
nmax:=1;//номер макс элемента в столбце
for j:=1 to n do
begin
if max < a [ i, j ] then nmax:=j;//ищем максимальный элемент
if j=n then a [ i, nmax ]:=a [ i, nmax ] * ( -1 ); если столбец кончился, то меняем у максимального элемента знак, путем умножения на -1
end;
end;

ну раз ты "эти две" уже сделала, то сделаешь и эту.