Ошибка при выполнении программы - VB

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

Необходимо найти повторяющиеся элементы массива. Почему-то при выполнении программа выдает ошибку "Ошибка компиляции: Next without For". С чем это может быть связано - не понимаю. Полный текст программы: Dim x() As Integer ' исходный массив Dim y() As Integer ' массив копия Dim N As Integer ' количество элементов массива Dim I As Integer, J As Integer ' индексы Dim K As Integer ' кол-во повторяющихся элементов Dim P As Integer ' значение повторяющегося элемента Dim R As Integer ' поле для перестановок Private Sub Command1_Click() N = InputBox("введите длину массива N=") ReDim x(1 To N) As Integer ReDim y(1 To N) As Integer For I = 1 To N x(I) = InputBox("x(" + Str(I) + ")=") y(I) = x(I) Print x(I) Next I For I = 1 To N - 1 For J = I + 1 To N If y(I) > y(J) Then R = y(I): y(I) = y(J): y(J) = R Next J Next I For I = 1 To N Print y(I) Next I End Sub Private Sub Command2_Click() K = 1 P = y(I) For I = 2 To N If y(I - 1) = y(I) Then K = K + 1: P = y(I - 1) Else If K > 1 Then Print "В массиве x значение p повторяется k раз" Next I End Sub Ошибка возникает при выполнении command2. Выделяет Next I.

Решение задачи: «Ошибка при выполнении программы»

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

                            Private Sub Command2_Click()
K = 1
P = y(I)
For I = 2 To N
If y(I - 1) = y(I) Then K = K + 1: P = y(I - 1) Else
If K > 1 Then Print "В массиве x значение p повторяется k раз"
end if
Next I
End Sub
                        