Удалить из текста слова с нечетными номерами и перевернуть слова с четными

CLS
INPUT "vvedate text"; a$
a$ = LTRIM$(RTRIM$(a$))
n = LEN(a$)
q$ = " "
k = 1
FOR i = 1 TO n
    IF MID$(a$, i, 1) = q$ THEN k = k + 1
NEXT
DIM e(k - 1), d$(k)
FOR i = 1 TO n
    IF MID$(a$, i, 1) = q$ THEN r = r + 1: e(r) = i
NEXT
FOR i = 1 TO k
    SELECT CASE i
        CASE IS = 1
            d$(1) = MID$(a$, 1, e(1) - 1)
        CASE IS = k
            d$(k) = MID$(a$, e(r) + 1, n)
        CASE 2 TO (k - 1)
            d$(i) = MID$(a$, e(i - 1) + 1, e(i) - e(i - 1) - 1)
    END SELECT
NEXT
FOR i = 2 TO k STEP 2
    w$ = ""
    FOR j = 1 TO LEN(d$(i))
        w$ = MID$(d$(i), j, 1) + w$
    NEXT
    z$ = z$ + w$ + " "
NEXT
PRINT z$

INPUT a$
a$ = LTRIM$(a$)
a$ = a$ + " "
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) <> " " THEN
b$ = MID$(a$, i, 1) + b$
ELSE
k = k + 1
IF k MOD 2 = 0 THEN c$ = c$ + b$ + " "
b$ = ""
END IF
NEXT
PRINT c$

  CLS
     INPUT "Vvedite predlogenye : "; P$
DO: k = INSTR(P$, " ")
     IF k = 0 THEN S$ = P$ ELSE S$ = LEFT$(P$, k - 1): P$ = MID$(P$, k + 1)
     IF S THEN FOR i = LEN(S$) TO 1 STEP -1: N$ = N$ + MID$(S$, i, 1): NEXT
     N$ = N$ + SPACE$(S * SGN(k))
     S = 1 - S      '(триггер)
LOOP UNTIL k = 0
  PRINT "Novoe predlogenye : "; N$