незнаю что у тебя написано, но алгоритм расшифровки думаю будет таким: берем зашифрованное слово, сначало записываем в новое слово(расшифровка) нечетные буквы, затем четные и получаем на выходе расшифрованное слово.
const shifrslovo$
global iskomoeslovo$
lenght = len(shifrslovo$)
for n = 1 to lenght Step 2
a$ = mid(shifrslovo$, n, 1)
iskomoeslovo$=iskomoeslovo$+a$
next
for m = 2 to lenght Step 2
a$ = mid(shifrslovo$, m, 1)
iskomoeslovo$=iskomoeslovo$+a$
next
Print iskomoeslovo$