Водномерном массиве из n чисел переставить местами больше и маленькое (составить программу на бейсике)

REM пишу по памяти
CLS
INPUT n
xMin=n
xMax=0
min=10^9
max=-10^9
DIM a(n)
FOR i=1 TO 10
INPUT a(i)
IF a(i)<min THEN min=a(i) : xMin=i
IF a(i)>max THEN max=a(i) : xMax=i
NEXT i
k=a(xMax)
a(xMax)=a(xMin)
a(xMin)=k
END