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

INPUT s$ k = LEN(s$) + 1 FOR i = 1 TO k     IF MID$(s$, i, 1) = " " THEN n = n + 1 'считаем число слов NEXT i n = n + 1 DIM f$(n) j = 1 FOR i = 1 TO k 'разрезаем фразу на слова и заносим их в массив f     t$ = MID$(s$, i, 1)     f$(j) = f$(j) + t$     IF t$ = " " THEN j = j + 1 NEXT i f$(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 j NEXT i FOR i = 1 TO n     PRINT f$(i); NEXT i