задача с матрицей

[Сергей124]

помогите пожалуйста сделать

1) Определить, по каждой строке, количество, отрицательных, элементов матрицы ER{m, п}, удовлетворяющих условию er[i,j] < er[1,n] и переписать полученные величины в одномерный массив Р.
вот для другого условия (количество элементов матрицы).
function NumElementsCondition (M: TMatrix) : double;
var i, j, num: integer;
begin
num := 0;
for I := 0 to m.Rows - 1 do
for J := 0 to M.Columns - 1 do
if M[i,j]>m[0,1] then
num := num +1;
result := num;

2) Найти среднее арифметическое наименьших, отрицательных, элементов каждого столбца матрицы FZ{m, m} находящихся над главной диагональю.


3) Найти по каждому столбцу матрицы GG{m,n} максимальный и минимальный элементы и поменять их местами с последним и первым элементами столбца, соответственно.