Поменять местами максимальные и минимальные элементы массива

Sub Task(A() As integer)
      n1%=Lbound(A)
      n2%=Ubound(A)
      amax%=A(n1%)
      amin%=A(n1%)
      imax%=n1%
      imin%=n2%
      For i%=n1%+1 to n2%
           If A(i%) > amax% then
              imax%=i%
              amax%=A(i%)
           End if  
           If A(i%) < amin% then
              imin%=i%
              amin%=A(i%)
           End if  
      Next i%
      Tmp%=A(imax%)
      A(imax%)=A(imin%)
      A(imin%)=Tmp%
End Sub

Sub Тр()
    Dim Mass() As Integer, Mass2(), n As Integer, i As Integer, m As Integer, j As Integer, Str As String
    n = InputBox("Введите количество элементов массива", "Размер массива")
    m = InputBox("Введите количество столбцов массива", "Размер массива")
    'Переопределение размерности массива
    ReDim Mass(1 To n, 1 To m) As Integer
    Randomize
    'Заполнение массива случайными числами
    For i = 1 To n
        For j = 1 To m
        Mass(i) = Int(100 * Rnd + 1)
        Mass(j) = Int(100 * Rnd + 1)
        Str = Str & Mass(i, j) & " "
    'Поиск максимального элемента массива
    Next
    ax = Mass(1)
    For j = 2 To n
        If Mass(j) > Max Then Max = Mass(i)
    'Поиск минимального элемента массива
    Next
    Min = Mass(1)
    For i = 2 To n
        If Mass(i) < Min Then Min = Mass(i)
        
       
        
End Sub

Sub Тр()
    Dim Mass() As Integer, Mass2(), n As Integer, i As Integer, m As Integer, j As Integer, Str As String
    dim max%,min%,imin%,jmin%,imax%,jmax%
    n = InputBox("Введите количество СТРОК массива", "Размер массива")
    m = InputBox("Введите количество столбцов массива", "Размер массива")
    'Переопределение размерности массива
    ReDim Mass(1 To n, 1 To m) As Integer
    Randomize
    'Заполнение массива случайными числами
    For i = 1 To n
        For j = 1 To m
         Mass(i,j) = Int(100 * Rnd + 1)
'         Mass(j) = Int(100 * Rnd + 1)
         Str = Str & Mass(i, j) & " "
        next j
    Next i
    
max=mass(1,1)
min=max
For i = 1 To n
  For j = 1 To m
    if max<=mass(i,j)then max=mass(i,j):imax=i:jmax=j
    if min>=mass(i,j)then min=mass(i,j):imin=i:jmin=j
  next
next
n=mass(imin,jmin)
mass(imin,jmin)=mass(imax,jmax)
mass(imax,jmax)=n
        
End Sub