Module Module1

    Sub Main()
        FileOpen(1, "H:\data2.txt", OpenMode.Input)
        FileOpen(2, "H:\out2.txt", OpenMode.Output)
        Dim data As New SortedList(Of Double, String)
        Dim tmp(0 To 1) As String
        For i As Integer = 1 To 2
            data.Clear()
            For a As Integer = 1 To 5
                tmp = Split(LineInput(1), " ", 2)
                If data.IndexOfKey(tmp(0) - 0.3) <> -1 Then
                    tmp(0) = tmp(0) - 0.4
                ElseIf data.IndexOfKey(tmp(0) - 0.2) <> -1 Then
                    tmp(0) = tmp(0) - 0.3
                ElseIf data.IndexOfKey(tmp(0) - 0.1) <> -1 Then
                    tmp(0) = tmp(0) - 0.2
                ElseIf data.IndexOfKey(tmp(0)) <> -1 Then
                    tmp(0) = tmp(0) - 0.1
                End If
                data.Add(tmp(0), tmp(1))
            Next
            PrintLine(2, data.Values.Item(4).ToString)
            PrintLine(2, data.Values.Item(3).ToString)
            PrintLine(2, data.Values.Item(2).ToString)
            PrintLine(2, data.Values.Item(1).ToString)
            PrintLine(2, data.Values.Item(0).ToString)
        Next
    End Sub

End Module