Определить положение максимального элемента в строке матрицы имеющий минимальную сумму положительных элементов

const
  n = 10;
 
var
  mas: array[1..n, 1..n] of integer;
  i, j, min, sum, str, max: integer;
 
begin
  str := 1;
  for i := 1 to n do
    for j := 1 to n do
      mas[i, j] := random(-9, 9);
  for i := 1 to n do
  begin
    for j := 1 to n do
      Write(mas[i, j]:3);
    Writeln;
  end;
  for i := 1 to n do
  begin
    if (mas[1, i] > 0) then
      min := min + mas[1, i];
  end;
  for i := 2 to n do
  begin
    for j := 1 to n do
    begin
      if (mas[i, j] > 0) then
        sum := sum + mas[i, j];
    end;
    if (sum <= min) then
    begin
      min := sum;
      str := i;
      sum := 0;
    end;
  end;
  max := mas[str, 1];
  for i := 2 to n do
    if max < mas[str, i] then
    begin
      max := mas[str, i];
      j := i;
    end;
  Writeln;
  Writeln('Максимальное число ', max, ' из строки - ', str, ', ', j, ' столбца.  Сумма положительных чисел стоки: ', min);
end.