Найти и вывести сумму индексов элементов с максимальным и минимальным значением элементов массива R(K)- Basic(Бейсик)

INPUT k
DIM r(k)
FOR i=1 TO k 
INPUT"vvedite element ",r(i)
NEXT
max=r(1)
min=r(1)
nmax=1
nmin=1
FOR i=1 TO k
IF r(i)>max THEN max=r(i):nmax=i
IF r(i)<min THEN min=r(i):nmin=i
NEXT
PRINT nmax+nmin