[H@NON]

эх... вот вам исправленный вариант, надеюсь теперь все верно:

const shifrslovo$
global iskomoeslovo$

lenght = len(shifrslovo$)
for n = 1 to lenght Step 2
    a$ = mid(shifrslovo$, n, 1)
    iskomoeslovo$=iskomoeslovo$+a$
next

d# = lenght Mod 2
if d#<>0 then lenght2=lenght-1 Else lenght2=lenght

for m = lenght2 to 2 Step -2
    a$ = mid(shifrslovo$, m, 1)
    iskomoeslovo$=iskomoeslovo$+a$
next

Print iskomoeslovo$