Отрицательные элементы каждой строки матрицы заменить суммой максимума и минимума этой строки

begin
  var a := MatrRandom(ReadlnInteger('N ='), ReadlnInteger('M ='), -20, 20);
  writeln('Исходная матрица:'); a.Println;
  var b := a.Rows.Select(v -> v.Min + v.Max).ToArray;
  for var i := 0 to a.GetLength(0) - 1 do
    for var j := 0 to a.GetLength(1) - 1 do
      if a[i, j] < 0 then a[i, j] := b[i];
  writeln('Новая матрица:'); a.Println;
end.

Program lab4;
var m,n,min,max :integer;
a:array [1..100, 1..100] of integer;
begin
   writeln('Введите N = ');
   readln(n);
   writeln('Введите  M = ');
   readln(m);
for var i:=1 to n do
    begin
        for var j:=1 to m do
            begin
                WriteLn('Введите элемент А[',i,' ; ',j,' ]: ');
                Read(a[i,j]); 
            end;
        max:=a[i,1]; min:=a[i,1];
        for var j:=1 to m do
            begin
                if a[i,j]>max then
                    max:=a[i,j];
                if a[i,j]<min then
                    min:=a[i,j];
            end;
        for var j:=1 to m do
            if a[i,j]<0 then
                a[i,j]:=min+max;
            end;
for var i:=1 to n do
    begin
        for  var j:=1 to m do
            Write(a[i,j],'       ');
        WriteLn;
    end;
    end.

begin
  var n := ReadlnInteger('n');
  var m := ReadlnInteger('m');
 
  var a := MatrRandom(n, m, -20, 20).Println(4);
  writeln('Новая матрица');
  a := MatrGen(n, m, (i, j) -> a[i, j] < 0 ? a.Row(i).Min + a.Row(i).Max : a[i, j]).Println(4);
end.

begin
  var a := MatrRandom(ReadlnInteger('n'), ReadlnInteger('m'), -20, 20).Println(4);
  writeln('Новая матрица');
  a := MatrGen(a.GetLength(0), a.GetLength(1), (i, j) -> a[i, j] < 0 ? a.Row(i).Min + a.Row(i).Max : a[i, j]).Println(4);
end.