Imports System.IO
Module Module1
    Sub InsertionSort(ByRef intArray() As Integer, ByRef StringArray() As String)
        Dim PreviousItemindex As Integer
        Dim temp As Integer
        Dim strtemp As String

        For itemindex As Integer = 1 To intArray.Length - 1
            temp = intArray(itemindex)
            strtemp = StringArray(itemindex)
            PreviousItemindex = itemindex - 1
            Do While intArray(PreviousItemindex) > temp And PreviousItemindex > 0
                intArray(PreviousItemindex + 1) = intArray(PreviousItemindex)
                StringArray(PreviousItemindex + 1) = StringArray(PreviousItemindex)
                PreviousItemindex -= 1
            Loop
            If intArray(PreviousItemindex) > temp Then
                intArray(PreviousItemindex + 1) = intArray(PreviousItemindex)
                intArray(PreviousItemindex) = temp
                StringArray(PreviousItemindex + 1) = StringArray(PreviousItemindex)
                StringArray(PreviousItemindex) = strtemp
            Else
                intArray(PreviousItemindex + 1) = temp
                StringArray(PreviousItemindex + 1) = strtemp
            End If
        Next itemindex
    End Sub
    Sub main()
        Const INPUT_FILE As String = "DATA1.TXT"
        Const OUT_FILE As String = "OUT1.TXT"
        Dim ifs As New FileStream(INPUT_FILE, FileMode.Open, FileAccess.Read)
        Dim input As New StreamReader(ifs)
        Dim ofs As New FileStream(OUT_FILE, FileMode.Open, FileAccess.Write)
        Dim output As New StreamWriter(ofs)


        Dim LineOfInput1(5) As Integer
        Dim lineofinput2(5) As String
        Dim LineOfOutput(5) As Integer

        Dim i As Integer = 0

        Do While input.Peek > -1
            lineofinput2(i) = input.ReadLine()
            LineOfInput1(i) = input.ReadLine()
            i = i + 1

        Loop
 



        Call InsertionSort(LineOfInput1, lineofinput2)

        output.WriteLine()

        output.Close()
    End Sub

End Module