небольшие изменения

@transliter
^context[trans;^config[а a
б b
в v
г g
д d
е e
ё yo
ж zh
з z
и i
й j
к k
л l
м m
н n
о o
п p
р r
с s
т t
у u
ф f
х h
ц c
ч ch
ш sh
щ shch
ъ `
ы y
ь '
э e`
ю yu
я ya
А A
Б B
В V
Г G
Д D
Е E
Ё YO
Ж ZH
З Z
И I
Й J
К K
Л L
М M
Н N
О O
П P
Р R
С S
Т T
У U
Ф F
Х H
Ц C
Ч CH
Ш SH
Щ SHCH
Ъ `
Ы Y
Ь '
Э E`
Ю YU
Я YA]^var[rezult;]^rem[длина^length[$1]]^for[i;0;^length[$1];^var[old;^mid[$1;^var[i];1]]^menu[^eq[^var[old];^item[0];^var[rezult;.;^item[1]];]]]^var[rezult]]