помогите пожалуйста с масивом! Опции

[Fatum]

Помогите пожалуйста.
1)Упорядочить элементы столбцов матрицы за спадением их значений методом обмена
2)fi(aij) - произведение элементов в каждой строке под вспомогательной диагональю матрицы;
3) F(fi(aij)) - среднее арифметическое значение fi(aij)
Упорядочить - упорядочил а дальше не получаеться (2ю3 пункти)
Заранее благодарен

uses crt;

var
P:array [1..5,1..5]  of integer;
n,min,i,j,k,r:integer;

begin {Vvedennya Masuvy};
clrscr;
for i:=1 to 5 do
for j:=1 to 5 do begin
write ('p[',i,' ',j,']=');
readln (P[i,j]);
end;

writeln('Massive');

for i:=1 to 5 do begin
for j:=1 to 5 do
write (P[i,j]:5);
writeln;
end;

writeln('After sort');

{Vporydkyvannya}
for k:=1 to 5 do begin
for j:=1 to 4 do begin
min:=P[j,k]; n:=j;
for i:=j+1 to 5 do
    if P[i,k]>min then begin min:=P[i,k]; n:=i; end;
    r:=P[n,k];
    P[n,k]:=P[j,k];
    P[j,k]:=r;
end;
end;
{Vuvedennya}
for i:=1 to 5 do begin
for j:=1 to 5 do
write (P[i,j]:5);
writeln;
end;
readkey;
end. 

[klem4]

а что переделать сумму в произведение очень сложно ?