begin
  var arr := MatrixRandom(5, 3, -50, 50);
  WriteLn('Исходная матрица:');
  for var i := 0 to arr.GetLength(0) - 1 do
  begin
    var min := 0;
    var max := 0;
    for var j := 0 to arr.GetLength(1) - 1 do
    begin
      if arr[i, j] > arr[i, max] then max := j;
      if arr[i, j] < arr[i, min] then min := j;
      Write(arr[i, j]:5);
    end;
    WriteLn('  ->  Мин=', arr[i, min]:3, #9, 'Макс=', arr[i, max]:3);
  end;
end.