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

Формулировка задачи:

Известно оценки каждого из 22 учеников в классе по четырем предметам.определить фамилию одного из учеников, имеющих максимальную сумму оценок

Решение задачи: «Как определить фамилию ученика, имеющего максимальную сумму оценок»

textual
                            Листинг программы 
                        

                            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
                        