Вычисление максимальных и минимальных сумм в матрице

type
  TA = record
    i, j : integer;
  end;
var
  A : array of TA;
  B : array of array of integer;
  i, j, k, l, s, Summ, Min, Max : integer;
begin
  Max := 0;
  Min := 1000000;
  // Выбираем очередную точку
  for i := 0 to n-1 do
  begin
    for j := 0 to m-1 do
    begin
      // Кидаем ее в массив координат
      SetLength(A, Length(A)+1);
      A[Length(A)-1].i := i;
      A[Length(A)-1].j := j;
      // Проходим заново по масиву
      for k := 0 to n-1 do
        for l := 0 to m-1 do
        begin
          Add := true;
          // Проходим по массиву координат
          for s := 0 to Length(A)-1 do
            // Если одна из координат содержится в массиве
            if (A[Length(A)-1].i = k) or
               (A[Length(A)-1].j = l) then
            begin
              // Не добалвять
              Add := false;
              break;
            end;
          // Если надо, добаляем точку
          if Add = true then
          begin
              SetLength(A, Length(A)+1);
              A[Length(A)-1].i := k;
              A[Length(A)-1].j := l;
          end;
        end;
    end;
    Summ := 0;
    // Считаем сумму по массиву координат
    for k := 0 to Length(A)-1 do
      Summ := Summ + B[A[k].i, A[k].j];
    // Получаем новые значения Min и Max
    if Summ > Max then
      Max := Summ;
    if Summ < Min then
      Min := Summ;
    // Обнуляем массив координат
    SetLength(A, 0);
  end;
end;