Помогите написать программу в PASCAL

[kitty]

Дана матрица 5*5.
1)построить вектор из отрицательных элементов.
2)определить произведение элементов,лежащих выше главной диагонали.
3)упорядочить строки матрицы по убыванию.
помогите ....

[Abbatik]

2)
пишу алгоритм, далбше надеюсь сами!
Выше главной диагонали это те у которых номер строки меньше номера столбца...

p:=1;
for i:=1 to n do begin
for j:=1 to n do begin
if i<j then p:=p*a[i,j];
end;
end;