Составить программу вычисления в массиве B, состоящего из N элементов, максимального элемента и его номера — QBasic(Бейсик)

INPUT "vvedite kol-vo elementov ", n
DIM b(n)
RANDOMIZE TIMER
PRINT "massiv"
FOR i = 1 TO n
    b(i) = INT(RND * 20)
    PRINT b(i);
NEXT
PRINT
nmax = 1
FOR i = 1 TO n
    IF b(i) > b(nmax) THEN nmax = i
NEXT
PRINT "maximalnyj element="; b(nmax); " ego nomer="; nmax