Как в этой программе сосчитать количество максимальных чисел

Sub Main()
        Dim n, i, pol, max As Double
        Console.WriteLine("razmer vvodi")
        n = Val(Console.ReadLine())
        Dim a(n) As Double
        For i = 1 To n
            Console.WriteLine("a({0})", i)
            a(i) = Val(Console.ReadLine())
        Next i
        For i = 1 To n
            If a(i) > 0 Then
                pol = pol + 1
            End If
        Next i
        For i = 1 To n
            If a(i) > max Then
                max = a(i)
            End If
        Next i
 
        Console.WriteLine("pol={0},max={1}", pol, max)
        Console.ReadKey()
    End Sub

Sub Main()
        Dim m, n, i, pol, max As Double
        Console.WriteLine("razmer vvodi")
        n = Val(Console.ReadLine())
        Dim a(n) As Double
        For i = 1 To n
            Console.WriteLine("a({0})", i)
            a(i) = Val(Console.ReadLine())
        Next i
        For i = 1 To n
            If a(i) > 0 Then
                pol = pol + 1
            End If
        Next i
        For i = 1 To n
            If a(i) > max Then
                max = a(i)
            End If
        Next i
        For i = 1 To n
            If a(i) = max Then
                m = m + 1
            End If
        Next i
 
        Console.WriteLine("pol={0},m={1}", pol, m)
        Console.ReadKey()