Как определить фамилию ученика, имеющего максимальную сумму оценок - VB

Module Module1
 
    Sub Main()
        Dim i, j, marks, maxS, S As Integer
        Dim pupils, bestpupil As String
 
        maxS = 0
        For i = 1 To 22 Step 1
 
 
            S = 0
            Console.WriteLine("{0}{1}{2}", "Введите фамилию ", i, "-го ученика: ")
            pupils = Convert.ToString(Console.ReadLine())
            For j = 1 To 4 Step 1
                Console.WriteLine("{0}{1}{2}{3}{4}", "Введите оценку  ", i, "-го ученика по ", j, "-ому предмету: ")
                marks = Convert.ToInt32(Console.ReadLine())
                S = S + marks
            Next j
            If (S > maxS) Then
                maxS = S
                bestpupil = pupils
 
            End If
          
        Next i
        Console.WriteLine("{0}{1}{2}", bestpupil, ": ", maxS)
        Console.WriteLine(bestpupil, ": ", maxS)
    End Sub
 
End Module