Обнулить строку и столбец матрицы, на пересечении которых находится её максимальный элемент - VBA - Ответ 7123335

Sub NullMaxElemRowColumn() 'Begin
    'Var
    Dim x(1 To 20, 1 To 20) As Integer 'x: Array [1..20,1..20] of Integer;
    Dim i As Byte, j As Byte, n As Byte, imax As Byte, jmax As Byte 'i,j,n,imax,jmax: Byte;
    Dim max_ As Integer 'max: Integer;
    Dim message As String 'Буфер вывода.
    n = InputBox("Введите размер матрицы:") 'Write('Введите размер матрицы: '); Readln(n);
    If n > 20 Then n = 20: If n < 0 Then n = 0 'Страховка на случай некорректного ввода.
    Randomize
    max_ = -32768 'max:=Low(max);
    message = "Исходная матрица:" & vbCr 'Writeln('Исходная матрица:');
    For i = 1 To n 'For i:=1 to n do begin
        For j = 1 To n 'For j:=1 to n do begin
            x(i, j) = Int(Rnd() * 100) 'x[i,j]:=Random(100);
            If x(i, j) > max_ Then 'If x[i,j]>max Then begin
                max_ = x(i, j) 'max:=x[i,j];
                imax = i 'imax:=i;
                jmax = j 'jmax:=j;
            End If 'end;
            message = message & x(i, j) & vbTab 'Write(x[i,j]:4);
        Next j 'end;
        message = message & vbCr 'Writeln
    Next i 'end;
    'Writeln('MAX=',max,'; находится на ',imax,' строке, ',jmax,' столбце');
    message = message & "MAX = " & max_ & "; находится на " & imax & " строке, " & jmax & " столбце." & vbCr
    message = message & "Полученная матрица:" & vbCr 'Writeln('Полученная матрица:');
    For i = 1 To n 'For i:=1 to n do begin
        For j = 1 To n 'For j:=1 to n do begin
            If (i = imax) Or (j = jmax) Then x(i, j) = 0 'If (i=imax) or (j=jmax) Then x[i,j]:=0;
            message = message & x(i, j) & vbTab 'Write(x[i,j]:4);
        Next j 'end;
        message = message & vbCr 'Writeln
    Next i 'end;
    MsgBox message 'Readln
End Sub 'End.