Polnalazak drugog navjeceg

Ponalazak drugog najveceg clana niza i na poziciji na kojoj se nalazi.

Znaci treba da se nadje drugi najveci clan niza od 10 unesenih clanova (1,2,3,4,8,11,55,33,22,21)treba da ispise 33 i na poziciji na kojoj se nalzi kad se lista sortira. Ja sam uspio sortirat lisu (od 10 nasumičnih brojeva i dobijem uredjen niz) , našao najveci najveci clan niza.
Sad je problem naci drugi naveci clan niza umjesto prvog i njegovu poziciju.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

     Dim duzina As Integer

     duzina = Convert.ToInt32(TextBox1.Text)

     Dim temp As Integer

     Dim niz(duzina) As Integer

     Dim max As Integer

     For i = 1 To duzina

       niz(i) = InputBox("Unesite" & CStr(i))

     Next

     For i = 1 To duzina

       For j = 1 To duzina - 1

         If niz(j) > niz(j + 1) Then

           temp = niz(j)

           niz(j) = niz(j + 1)

           niz(j + 1) = temp

         End If

       Next

     Next

     For i = 1 To duzina

       TextBox2.Text += niz(i) & ""

     Next

     For i = 1 To duzina

       If niz(i) > max Then

         max = niz(i)

         TextBox3.Text = max

       End If

     Next

   End Sub

Nakon sortiranja niza drugi najveći član je na predzadnjem mjestu.

Ne kužim onda zašto u zadatku traže poziciju ako se radi o sortiranom nizu, unaprijed se zna da je to pozicija 9.

Hm, ja bi onda rekao ovako, drugi najveći nije na poziciji 9 ako imamo više najvećih u nizu, što je točno što kažeš. Moj previd, gledao sam onaj niz gore, a ova moja izjava očito vrijedi samo ako imamo jedan najveći u nizu. A to nas ponovno dovodi do toga da mi je nelogično uopće ovdje vršti sortiranje radi pronalaskla drugog najvećeg, svejedno nam treba linearna pretraga jer trebamo izbrojii najveće u sortiranm nizu.