Седловая точка

Module Module1
 
    Sub Main()
        Const СтрокаВыйти As String = "выйти из программы - любая другая клавиша."
        Const СтрокаОшибка As String = ControlChars.CrLf & "Ошибка: "
        Const СообщениеПовторить As String = ControlChars.CrLf &
        "Если вы хотите повторить ввод значений " &
        "нажмите клавишу (п), " & СтрокаВыйти
        Const СообщениеПродолжить As String = ControlChars.CrLf &
        "Если вы хотите продолжить работу " &
        "нажмите клавишу (д), " & СтрокаВыйти
 
        Dim i, j, amin, amax, k, q, w, f, f1 As Integer
        Dim m, n As Integer
        Dim A(,) As Integer
 
 
        Do
            Try
                Console.Write("Введите количество строк матрицы: ")
                n = Console.ReadLine() - 1
                Console.Write("Введите количество столбцов матрицы: ")
                m = Console.ReadLine() - 1
                A = New Integer(n, m) {}
                Exit Do
 
            Catch ex As Exception
                Console.WriteLine(СтрокаОшибка & ex.Message & СообщениеПовторить)
                If Console.ReadKey(True).Key <> ConsoleKey.G Then Exit Sub
            End Try
        Loop
 
        For i = 0 To UBound(A)
            For j = 0 To UBound(A, 2)
                Do
                    Try
                        Console.Write("Введите элемент матрицы A({0},{1}): ", i + 1, j + 1)
                        A(i, j) = Console.ReadLine()
                        Exit Do
 
                    Catch ex As Exception
                        Console.WriteLine(СтрокаОшибка & ex.Message & СообщениеПовторить)
                        If Console.ReadKey(True).Key <> ConsoleKey.G Then Exit Sub
                    End Try
                Loop
            Next j
        Next i
 
        For i = 1 To UBound(A)
            amin = 1
            For j = 1 To UBound(A, 2)
                If A(i, j) < amin Then
                    amin = A(i, j)
                End If
            Next
 
            For j = 1 To UBound(A, 2)
                If A(i, j) = amin Then
                    f = 1
                End If
            Next
        Next
 
        For j = 1 To UBound(A, 2)
            amax = -1
            For i = 1 To UBound(A)
                If A(i, j) > amax Then
                    amax = A(i, j)
                End If
            Next
            For i = 1 To UBound(A)
                If A(i, j) = amax Then
                    f1 = 1
                End If
            Next
        Next
 
        For i = 1 To UBound(A)
            For j = 1 To UBound(A, 2)
                If (f = 1) And (f1 = 1) Then
                    Console.WriteLine("[{0};{1}]", i, j)
                End If
            Next
        Next
 
        Console.ReadKey()
    End Sub
 
End Module

  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim imax(4) As Integer, l As Integer
 For Me.i = 1 To UBound(a)
            amax = a(i, 1)
            imax(i) = 1
            For Me.j = 1 To UBound(a, 2)
                If a(i, j) > amax Then
                    amax = a(i, j)
                    imax(i) = j
                End If
            Next
        Next
        For Me.j = 1 To UBound(a, 2)
            amax = a(1, j)
            l = 1
            For Me.i = 1 To UBound(a)
                If a(i, j) < amax Then
                    amax = a(i, j)
                    l = i
                End If
            Next
            If j = imax(l) Then
                MsgBox("Седловой элемент " & "a(" & Str(l) & "," & Str(j) & ")=" & Str(a(l, j)))
            End If
        Next
 
    End Sub