Dim catches As Boolean = True
Console.WriteLine("Please enter the candidates name")
names(count) = Console.ReadLine()
If count = 1 Then Console.WriteLine("If you dont have anymore candidates please enter -1")
If names(count) = "-1" Then length = count
Loop Until (names(count - 1) = "-1" And count > 2) Or count = 4
For count = 0 To length - 1
Console.WriteLine(names(count) & "(" & (count + 1) & ")")
Console.WriteLine("Please select your candidate by entering the number displayed next to the name.")
Console.WriteLine("If you have no more votes to enter please enter -1")
input = Console.ReadLine()
If (catches = False And input = input mod 1 = 0 And 0 < input And input < length + 1) Then
Console.WriteLine(names(input - 1))
Console.WriteLine("Next input please")
votes(input - 1) = votes(input - 1) + 1
If input = -1 Then Exit Do
Console.WriteLine("Sorry that is an invaild input. Please re-enter your input")
for count = 0 to length -1
Console.WriteLine(names(count) & " (" & votes(count) & ")")
If votes(count) = votes(count) Then
Console.WriteLine("NO OVERALL WINNER")
Console.WriteLine("NEW CLASS CAPTAIN IS " & names(count))