Пользователь вводит запас топлива для N районов. Выявить три района, обладающих наименьшими запасами топлива- QBasic(Бейсик)

INPUT "vvedite kol-vo rayonov ", n
DIM a(n), nom(n)
FOR i = 1 TO n
    PRINT "rayon nomer "; i
    INPUT "zapas=", a(i)
    nom(i) = i
NEXT
PRINT "rayon", "zapas"
FOR i = 1 TO n
    PRINT nom(i), a(i)
NEXT
FOR i = 1 TO n
    FOR j = 2 TO n
        IF a(j) < a(j - 1) THEN SWAP a(j), a(j - 1): SWAP nom(j), nom(j - 1)
    NEXT
NEXT
PRINT " rayony s minimalnym zapasom"
PRINT "rayon", "zapas"
FOR i = 1 TO 3
    PRINT nom(i), a(i)
NEXT