Рассортировать слова исходной фразы а$ по алфавиту (по заданному номеру). Исходная информация вводится с клавиатуры (QBasic) 

INPUT s$k = LEN(s$) + 1FOR i = 1 TO k    IF MID$(s$, i, 1) = " " THEN n = n + 1 'считаем число словNEXT in = n + 1DIM f$(n)j = 1FOR i = 1 TO k 'разрезаем фразу на слова и заносим их в массив f    t$ = MID$(s$, i, 1)    f$(j) = f$(j) + t$    IF t$ = " " THEN j = j + 1NEXT if$(n) = f$(n) + " "FOR i = 1 TO n 'делаем сортировку массива    FOR j = 1 TO n        IF LEFT$(f$(i), 1) < LEFT$(f$(j), 1) THEN            P$ = f$(i)            f$(i) = f$(j)            f$(j) = P$        END IF    NEXT jNEXT iFOR i = 1 TO n    PRINT f$(i);NEXT i