В массиве y(n) найти максимальный элемент и заменить его и все элементы, которые равняются максимальному, в нуле. Переделанный массив Y(n) вывести на экран монитора — QBasic(Бейсик)

INPUT "vvedite kol-vo elementov ", n
DIM y(n)
RANDOMIZE TIMER
PRINT "ishodnyj massiv"
FOR i = 1 TO n
    y(i) = INT(RND * 10 + 1)
    PRINT y(i); " ";
NEXT
PRINT
max = y(1)
FOR i = 2 TO n
    IF y(i) > max THEN max = y(i)
NEXT
FOR i = 1 TO n
    IF y(i) = max THEN y(i) = 0
NEXT
PRINT "novyj massiv"
FOR i = 1 TO n
    PRINT y(i); " ";
NEXT