Определить количество футбольных команд, что выиграли больше половины матчей

Sub Main()
        Dim i, j, k, n, s As Integer
        Dim A(n, n) As Integer
        Console.WriteLine("количество матчей")
        n = Console.ReadLine()
        k = 0
        For i = 0 To n
            For j = 0 To n
                A(i, j) = Console.ReadLine()
            Next j
        Next i
        For i = 0 To n
            For j = 0 To n
                If A(i, j) = 2 Then
                    k = k + 1
                End If
                If k > n / 2 Then
                    s = s + 1
                End If
            Next j
        Next i
        Console.WriteLine("количество команд что выиграли больше половины матчей" & " " & s)
    End Sub
 
End Module