Работа с матрицой.

[DmitryBA]

Для матрицы А (4 строки, 5 столбцов) Y=(1-P5)^2+(2-P4)^2+...(5-P5)^2 , где Pk - произведения отрицательных элементов в k-ом столбце матрицы А. Для вычисления произведения отрицательных элементов в произвольном столбце матрицы использовать процедуру.

есть такой код программы который преподаватель не принял, сказав что она не ищет сумму отрицательных элементов в произв. столбцах:

program solution;
uses crt;
type
  arr = array[0..3, 0..4] of integer;     // объявляем массив

var
  i, k, j, y, maxB, maxB2: integer;             // объявляем переменные
  B: arr;

procedure max(A: arr; k: integer; var maxA: integer);  //процедура вычисления произведения отриц. эл-тов в произв. столбце
begin
  maxA := A[0, k];
  for i := 0 to 3 do
    for j := k to k do
      if A[i, j] > maxA then maxA := A[i, j];
end;

begin
  //randomize;
 y := 0;
  for i := 0 to 3 do
    for j := 0 to 4 do
      begin
writeln('Enter cells[',i , j, ']');           //B[i, j] := random(5); - случайные значения матрицы
readln(B[i, j]);
end;

  for k := 0 to 4 do
  begin
    max(B, k, maxB);
    max(B, 4 - k, maxB2);
    y := y + (maxB * maxB2);
  end;
  writeln('Solution Y = ', y);
  readln;
end.