uses
  system;

var
  arr: array [,] of integer;
  temp: string;
  n, m, min: integer;

begin
  repeat
    Console.Write('Введите кол-во строк (1 <= N <= ' + MaxByte + '): ');
    temp := Console.ReadLine();
    if not TryStrToInt(temp, n) then Console.WriteLine('Ошибка: Введено не верное значение. Повторите ввод...');
  until TryStrToInt(temp, n);
  repeat
    Console.Write('Введите кол-во строк (1 <= M <= ' + MaxByte + '): ');
    temp := Console.ReadLine();
    if not TryStrToInt(temp, m) then Console.WriteLine('Ошибка: Введено не верное значение. Повторите ввод...');
  until TryStrToInt(temp, m);

  SetLength(arr, n, m);
    Console.Clear; // Чистим экран...
  var flag := false;
  var null := false;

  Console.WriteLine('Исходный массив: ');
  for var i := 0 to arr.GetLength(0) - 1 do
  begin
    for var j := 0 to arr.GetLength(1) - 1 do
    begin
      arr[i, j] := PABCsystem.Random(101) - 50;
      Console.Write('{0,5}', arr[i, j]);

        // ищем минимальный из положительных...
      if not flag and (arr[i, j] > 0) then
      begin
        flag := true;
        min := arr[i, j];
      end
      else if flag and (arr[i, j] > 0) and (min > arr[i, j]) then min := arr[i, j];

        // нулевые элементы
      if arr[i, j] = 0 then null := true;
    end;
    Console.WriteLine();
  end;

  if flag then
  begin
    Console.WriteLine('Минимальный положительный элемент: ' + min);
    if null then
    begin
      for var i := 0 to arr.GetLength(0) - 1 do
        for var j := 0 to arr.GetLength(1) - 1 do if arr[i, j] = 0 then arr[i, j] := min;
    end
    else
    begin
      Console.WriteLine('Нулевые элементы отсутствуют :(');
      for var j := 0 to arr.GetLength(1) - 1 do arr[arr.GetLength(0) - 1, j] := min;
    end;

    Console.WriteLine('Новый массив: ');
    for var i := 0 to arr.GetLength(0) - 1 do
    begin
      for var j := 0 to arr.GetLength(1) - 1 do Console.Write('{0,5}', arr[i, j]);
      Console.WriteLine();
    end;
  end
  else Console.WriteLine('Положительные элементы отсутствуют :(');
end.