Прямой выбор

CLS
n = 5
DIM a(n)
PRINT "Сортировка массива"
FOR i = 1 TO n
 PRINT "Введите a("; i; ")=";
 INPUT a(i)
NEXT i

PRINT "Сортировка…"
FOR i = 1 TO n
 FOR j = i + 1 TO n
  IF a(j) < a(i) THEN
     buf = a(j)
    a(j) = a(i)
    a(i) = buf
  END IF
 NEXT j
NEXT i

PRINT "Массив отсортирован"
FOR i = 1 TO n
PRINT a(i);
NEXT i