Вычислить сумму элементов каждой строки матрицы A (NxM), определить наименьшее значение этих сумм и номер соответствующей строки

Module Module1
 
    Sub Main()
        Console.Write("Введите n: ")
        Dim n As Integer = Convert.ToInt32(Console.ReadLine())
        Console.Write("Введите m: ")
        Dim m As Integer = Convert.ToInt32(Console.ReadLine())
        Dim a(0 To n, 0 To m) As Integer
        Dim sum(0 To n) As Integer
        Dim rand = New Random
        Console.Write("Исходный массив: ")
        For i As Integer = 0 To n
            Console.WriteLine()
            For j As Integer = 0 To m
                a(i, j) = rand.Next(-100, 100)
                Console.Write(String.Format("{0, 6}", a(i, j)))
                sum(i) = sum(i) + a(i, j)
            Next j
        Next i
        Console.WriteLine()
        Console.Write("Сумма элементов каждой строки: ")
        Dim min As Integer
        Dim imin As Byte
        min = sum(0)
        For i As Integer = 0 To n
            Console.Write(String.Format("{0, 6}", sum(i)))
            If min > sum(i) Then
                min = sum(i)
                imin = i
            End If
        Next i
        Console.WriteLine()
        Console.WriteLine("Минимальная сумма : " & min & ", номер строки: " & imin + 1)
        Console.ReadKey()
    End Sub
 
End Module