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

[Сергей124]

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

1) Определить количество элементов главной диагонали матрицы BX{n,n} удовлетворяющих условию bx[i,j]<bx[n,n].

2) Найти среднее арифметическое всех отрицательных элементов матрицы AY{m, п}, удовлетворяющих условию ay[i,j] < | ay[m,n] |.

3) пределить индексы наибольшего, положительного, элемента матрицы CG{m, п} и заменить все элементы строки, в которой он находится, квадратами их значений.
вот я сделал для возведения в квадрат этого же элемента, а как сделать так что бы всю строку...

var i,j: integer;
Max: Double;
begin
Max:=0;
for I := 0 to Main.Rows - 1 do
for j := 0 to Main.Columns - 1 do
if Main[i,j]>0 then
if Main[i,j]>Max then
begin
Max:= Main[i,j];
IndexI:=i;
IndexJ:=j;
end;
if Max = 0 then
raise EMathError.Create('Нет отрецательных элементов!');

Main[IndexI,IndexJ]:= Sqr(Main[IndexI,IndexJ]);

[Александр Павлович]

{IndexI - номер нужной строки}
for j := 0 to Main.Columns - 1 do
  Main[IndexI,j] := sqr(Main[IndexI,j]);