Проверить, образует ли заданный набор чисел возрастающую последовательность - Visual Basic .NET

Формулировка задачи:

Дано произвольный набор из N вещественных чисел. Проверить, образует данный набор возрастающую последовательность. Если образует, то напечатать на экран True, если нет - вывести False. Что не так не могу понять???

Dim i, n, l As Integer
        Console.WriteLine("Введите количество цифр последовательности")
        n = Console.ReadLine()
        Console.WriteLine("Введите произвольный набор из N-чисел:")
        Dim k(n) As Integer
        For i = 0 To n - 1
            k(i) = Console.ReadLine()
        Next i
        i = 0
        If k(i) < k(i + 1) Then
            Console.WriteLine("true")
        Else
            Console.WriteLine("false")
        End If
        Console.ReadLine()
    End Sub

Решение задачи: «Проверить, образует ли заданный набор чисел возрастающую последовательность»

textual
                            Листинг программы 
                        

                            Function IsIncreasingSequence(ByVal a() As Integer)As Boolean
    Dim i As Integer = -1
    Do
        i += 1
    Loop While i < a.Length - 1 AndAlso a(i) < a(i + 1)
    Return i = a.Length - 1
End Function
                        