Заполнить массив из...

Заполнить массив из 35 элементов. Поменять местами наибольший и наименьший массив, вывести новый массив на экран.(Basic)

 

Module Module1
Sub Main()
Dim a(34), i, min, max, n As Integer
For i = 0 To 34
a(i) = Console.ReadLine
Next
min = 0
max = 0
For i = 1 To 34
If a(i) > a(max) Then
max = i
End If
If a(i) < a(min) Then
min = i
End If
Next
n = a(max)
a(max) = a(min)
a(min) = n
For i = 0 To 34
Console.Write(a(i) & " ")
Next
Console.ReadLine()
End Sub
End Module