в одномерном массиве из n чисел переставить местами больше и маленькое (составить программу на бейсике) ПОМОГИТЕ!!!!

REM пишу по памятиCLSINPUT nxMin=nxMax=0min=10^9max=-10^9DIM a(n)FOR i=1 TO 10INPUT a(i)IF a(i)<min THEN min=a(i) : xMin=iIF a(i)>max THEN max=a(i) : xMax=iNEXT ik=a(xMax)a(xMax)=a(xMin)a(xMin)=kEND