Help perkè non funziona??????

codice:
CLS
PRINT "|--------------------------------------------------------|"
PRINT "| Programma che mette in ordine alfabetico i nomi        |"
PRINT "| Autore ...                                             |"
PRINT "|--------------------------------------------------------|"
INPUT "1] Inserire nome: ", A1$
INPUT "2] Inserire nome: ", A2$
INPUT "3] Inserire nome: ", A3$
INPUT "4] Inserire nome: ", A4$
INPUT "5] Inserire nome: ", A5$
INPUT "6] Inserire nome: ", A6$
INPUT "7] Inserire nome: ", A7$
INPUT "8] Inserire nome: ", A8$
INPUT "9] Inserire nome: ", A9$
INPUT "10] Inserire nome: ", A10$
DO UNTIL A1$ < A2$
F$ = A1$
A1$ = A2$
A2$ = F$
LOOP
DO UNTIL A2$ < A3$
F$ = A2$
A2$ = A3$
A3$ = F$
LOOP
DO UNTIL A3$ < A4$
F$ = A3$
A3$ = A4$
A4$ = F$
LOOP
DO UNTIL A4$ < A5$
F$ = A4$
A4$ = A5$
A5$ = F$
LOOP
DO UNTIL A5$ < A6$
F$ = A5$
A5$ = A6$
A6$ = F$
LOOP
DO UNTIL A6$ < A7$
F$ = A6$
A6$ = A7$
A7$ = F$
LOOP
DO UNTIL A7$ < A8$
F$ = A7$
A7$ = A8$
A8$ = F$
LOOP
DO UNTIL A8$ < A9$
F$ = A8$
A8$ = A9$
A9$ = F$
LOOP
DO UNTIL A9$ < A10$
F$ = A9$
A9$ = A10$
A10$ = F$
LOOP
PRINT A1$, A2$, A3$, A4$, A5$, A6$, A7$, A8$, A9$, A10$
Io non vedo errori eppure i nomi non vengono messi in ordine alfabetico

Grazie per il vostro aiuto.