CLS
PRINT "Sort"
INPUT "Enter Tadad data? "; n
DIM name$(n), avr(n)

FOR i = 1 TO n
PRINT "Enter Name and avr :";
INPUT name$(i), avr(i)
NEXT i
PRINT "UnSort List"
PRINT "----------------"
FOR i = 1 TO n
PRINT name$(i), avr(i)
NEXT i
FOR i = 1 TO n
FOR j = 1 TO n - 1
IF avr(j) > avr(j + 1) THEN
s = avr(j)
avr(j) = avr(j + 1)
avr(j + 1) = s
s$ = name$(j)
name$(j) = name$(j + 1)
name$(j + 1) = s$
END IF
NEXT j
NEXT i


PRINT "Sort List"
PRINT "----------------"
FOR i = 1 TO n
PRINT name$(i), avr(i)
NEXT i