Вводятся некоторое количество букв (латинских), затем смотрится сколько букв четное число а сколько нечетное, и нужно вывести буквы в правильном порядке. Если все буквы четны или нечетны то «нет» — QBasic(Бейсик)

Пример ввода: BANAN
вывод: ANBNA
или же
ВВод: LALALALAT
Вывод:AALLTLLAA

INPUT "vvedite slovo ", a$
DIM b$(LEN(a$) + 1)
FOR i = 1 TO LEN(a$)
    b$(i) = MID$(a$, i, 1)
NEXT
FOR i = 1 TO LEN(a$)
    FOR j = 2 TO LEN(a$)
        IF b$(j) < b$(j - 1) THEN SWAP b$(j), b$(j - 1)
    NEXT
NEXT

k = 1
FOR i = 2 TO LEN(a$) + 1
    IF b$(i) = b$(i - 1) THEN
        k = k + 1
    ELSE
        IF k MOD 2 <> 0 THEN n = n + 1: FOR j = 1 TO k: t$ = t$ + b$(i - 1): NEXT ELSE FOR j = 1 TO k / 2: c$ = c$ + b$(i - 1): NEXT
        k = 1
    END IF
NEXT
IF n > 1 OR n = 0 THEN PRINT "net resheniy": END
k = 1
r$ = c$ + t$
FOR i = LEN(c$) TO 1 STEP -1
    r$ = r$ + MID$(c$, i, 1)
NEXT
PRINT "rezultat="; r$