помогите в решении задачи, программу надо написать в турбо паскале

var A : array [1..6, 1..6] of Real; Row, Col, MaxRow, MaxCol, Min : Byte; Sum : Real;
begin Randomize; WriteLn('Массив: '); MaxRow := 0; MaxCol := 0;
for Row := 1 to 6 do begin for Col := 1 to 6 do begin
A[Row, Col] := Random * 5 - 3; Write(A[Row, Col]:8:3);
if A[Row, Col] < 0 then if (MaxRow = 0) and (MaxCol = 0) then begin MaxRow := Row; MaxCol := Col; end else if A[Row, Col] > A[MaxRow, MaxCol] then begin MaxRow := Row; MaxCol := Col; end; end;
WriteLn; end;
WriteLn('Максимальный из отрицательных: A[', MaxRow, ', ', MaxCol, ' = ', A[MaxRow, MaxCol]:8:3);
Sum := 0; for Col := 1 to 6 do Sum := Sum + A[MaxRow, Coll];
WriteLn('Сумма элементов строки ', Row, ' : ', Sum:8:3);
Min := 1; for Row := 2 to 6 do if A[Row, MaxCol] < A[Min, MaxCol] then Min := Row;
WriteLn('Минимальный ', MaxCol, ' столбца: A[', MaxRow, ', ', MaxCol, ' = ', A[MaxRow, MaxCol]:8:3);
end.

запросто за скромное вознаграждение)
- делаешь два цикла для заполнения матрицы и заполняешь рандомом
- при заполнении определяешь мах
- после нахождения мах запоминаешь строку, по которой потом производишь суммирование и поиск минимального

вечно кто-то испортит попытку заставить человека либо думать либо платить...