Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали

FOR i = 1 TO n
 max = A(i, 1)
 jmax = 1
 
FOR j = 1 TO m
 IF max < A(i, j) THEN
 max = A(i, j)
 jmax = j
 END IF
NEXT j
 
R = A(i, jmax)
A(i, jmax) = A(i, i)
A(i, i) = R
NEXT i

Option Explicit
Dim A%(), max%, jmax%, i%, j%, R%, n%
 
Private Sub Command1_Click()
    Randomize Timer
    n = Val(Text1.Text)
    ReDim A(n, n)
    
    For i = 1 To n
    For j = 1 To n
        A(i, j) = 50 * Rnd - 25
        Print A(i, j);
    Next: Print
    Next: Print
    
    For i = 1 To n
        max = A(i, 1)
        jmax = 1
        
        For j = 1 To n
            If max < A(i, j) Then
                max = A(i, j)
                jmax = j
            End If
        Next j
        
        R = A(i, jmax)
        A(i, jmax) = A(i, i)
        A(i, i) = R
    Next i
    
    For i = 1 To n
    For j = 1 To n
        Print A(i, j);
    Next: Print
    Next
End Sub

For i = 1 To n
    For j = 1 To n
        Label1.Caption = Label1.Caption + Str(A(i, j))
    Next
    Label1.Caption = Label1.Caption + vbCrLf
Next