Заполнить массив У элементами массива Х, находящимися после его максимального значения в Х- QBasic(Бейсик)

INPUT "vvedite kol-vo elementov ", n
DIM x(n), y(n)
RANDOMIZE TIMER
PRINT "massiv x"
FOR i = 1 TO n
    x(i) = INT(RND * 100)
    PRINT x(i);
NEXT
PRINT
m = 1
FOR i = 1 TO n
    IF x(i) > x(m) THEN m = i
NEXT
FOR i = m + 1 TO n
    k = k + 1
    y(k) = x(i)
NEXT
PRINT "massiv y"
FOR i = 1 TO k
    PRINT y(i);
NEXT