Найти максимальный и минимальный элементы массива и вывести их на экран - VB

PublicClassForm1
Private n As Integer
Dim a() As Integer
Private S, P As Integer
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
        n = Val(TextBox1.Text)
ReDim a(n)
        S = -30
For i As Integer = 0 To n
a(i) = Math.Round(Rnd() * 70) - 30
If a(i) > S Then
                S = a(i)
                P = i
End If
Next
        Label3.Text = Str(P)
        Label5.Text = Str(S)
End Sub
End Class