Для заданного одномерного массива размерности к определить делители и их количество - VB

Module ModuleMain
 
    Private Const LENGTH As Integer = 10
 
    Private array(LENGTH) As Integer
 
    Sub Main()
 
        Dim generator As Random = New Random()
 
        For i = 1 To LENGTH
            array(i) = generator.Next(20)
            Console.Write(array(i) & "  ")
        Next
        Console.WriteLine()
 
        Dim countDivisor As Integer = 0
 
        For i = 1 To LENGTH
            Console.Write("Divisors of " & array(i) & " : ")
            For j = 2 To array(i) - 1
                If array(i) Mod j = 0 Then
                    countDivisor += 1
                    Console.Write(" " & j)
                End If
            Next
            Console.WriteLine(" (" & countDivisor & ")")
            countDivisor = 0
        Next
 
        Console.ReadLine()
    End Sub
 
End Module