Программа не сортирует массив из чисел, заданный txt файлом

Dim n As Integer, x() As Integer
Private Sub Command1_Click()
Open "D:\A.txt" For Input As #1
n = 0
Dim a(200) As Integer
While Not EOF(1): n = n + 1
Input #1, a(n)
Wend
Close #1
ReDim x(n) As Integer
For i = 1 To n: x(i) = a(i)
Picture1.Print x(i);
Next i
End Sub
 
Private Sub Command2_Click()
Unload Me
End Sub
Public Sub sortirovkavstavkoy(min As Integer, max As Integer)
Dim i As Long
Dim j As Long
Dim k As Long
Dim max_sort As Long
Dim next_num As Long
 
    max_sort = min - 1
    For i = min To max
        ' Vstavl chislo.
            next_num = x(i)
         'poisk chisla v spiske.
        For j = min To max_sort
            If x(j) >= next_num Then Exit For
        Next j
        ' peremestim bolshie elementi vniz, 4tobi osvobodit' mesto dlya
        'novogo chisla
        
        For k = max_sort To j Step -1
            x(k + 1) = x(k)
        Next k
        'pomestit' noviy element
            x(j) = next_num
        ' uvelichit' chtchik otsortirovannih elementov.
        max_sorted = max_sort + 1
        
        Next i
        For i = min To max
          Picture2.Print x(i);
        Next i
End Sub
 
 
Private Sub Command3_Click()
Call sortirovkavstavkoy(1, n)
End Sub

Private Sub Комманда3_Click() ' сортируем методом вставки
Dim I, J, K
Список4.Clear 'чистим список
For I = 0 To Список3.ListCount - 1 ' организуем цикл по всему списку
 Список4.AddItem Список3.List(I) ' добавляем в новый список очередной член массива
    For J = 0 To Список4.ListCount - 1 ' организуем цикл проверки
            If Val(Список3.List(I)) <= Val(Список4.List(J)) Then ' если значение меньше очередного
                      For K = Список4.ListCount - 1 To J Step -1 ' организуем цикл по оставшимся членам массива
                      Список4.List(K) = Список4.List(K - 1) ' и опускаем все до места, где должен быть текущий член
                      Next K '
                      Список4.List(J) = Список3.List(I) ' вставляем на место
                      GoTo 1 '
            End If '
    Next J '
1 '
Next I '
End Sub '

Dim n As Integer, x() As Integer
Private Sub Command1_Click()
Open "D:\A.txt" For Input As #1
n = 0
Dim a(200) As Integer
While Not EOF(1): n = n + 1
Input #1, a(n)
Wend
Close #1
ReDim x(n) As Integer
For i = 1 To n: x(i) = a(i)
Picture1.Print x(i);
Next i
End Sub
 
Private Sub Command2_Click()
Unload Me
End Sub
Public Sub insertionsort(min As Integer, max As Integer)
    max_sorted = min - 1
    For i = min To max
        'Вставляем число
            next_num = x(i)
         'Поиск числа в нашем списке
        For j = min To max_sorted
            If x(j) <= next_num Then Exit For
        Next j
        'Переместим большие элементы вниз, чтобы освободить место для нового числа
        For k = max_sorted To j Step -1
            x(k + 1) = x(k)
        Next k
        'Поместить новый элемент
            x(j) = next_num
        'Увеличить счетчик отсортированных элементов
           max_sorted = max_sorted + 1
          Next i
        For i = min To max
          Picture2.Print x(i);
        Next i
End Sub
 
 
Private Sub Command3_Click()
Call insertionsort(1, n)
End Sub