Шайтан машина! "пересечение диапазонов меток в операторе CASE"

[AnLucius]

Задание: Есть два алфавита:
абвгдежзийклмнопрстуфхцчшщъыьэюяАБВ ГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ
сЭЯпэйФхдимЪъЛНщЩлИДЮрзГЙаХБфкЫтуУР АШнОЦЗКгвочВЕПюябжМЖТшСыьеЧцЬ
и есть зашифрованный текст( отрезок текста- АсЩЩд АуППЗюВч
). Надо текст расшифровать.

                             var
s: string;
i,k: integer;
begin
WriteLn('Введите строку:');
ReadLn(s);
k:=length(s);
for i:=1 to k do
case s[i] of
'а': s[i]:='с';
'б': s[i]:='Э';
'в': s[i]:='Я';
'г': s[i]:='п';
'д': s[i]:='э';
'е': s[i]:='й';
'ж': s[i]:='ф';
'з': s[i]:='х';
'и': s[i]:='д';
'й': s[i]:='и';
'к': s[i]:='м';
'л': s[i]:='Ъ';
'м': s[i]:='ъ';
'н': s[i]:='Л';
'о': s[i]:='Н';
'п': s[i]:='щ';
'р': s[i]:='Щ';
'с': s[i]:='л';
'т': s[i]:='И';
'у': s[i]:='Д';
'ф': s[i]:='Ю';
'х': s[i]:='р';
'ц': s[i]:='з';
'ч': s[i]:='Г';
'ш': s[i]:='Й';
'щ': s[i]:='а';
'ъ': s[i]:='Х';
'ы': s[i]:='Б';
'ь': s[i]:='ф';
'э': s[i]:='к';
'ю': s[i]:='Ы';
'я': s[i]:='т';
'А': s[i]:='у';
'Б': s[i]:='У';
'В': s[i]:='Р';
'Г': s[i]:='А';
'Д': s[i]:='Ш';
'Е': s[i]:='н';
'Ж': s[i]:='О';
'З': s[i]:='Ц';
'И': s[i]:='З';
'Й': s[i]:='К';
'К': s[i]:='г';
'Л': s[i]:='в';
'М': s[i]:='о';
'Н': s[i]:='ч';
'О': s[i]:='В';
'П': s[i]:='Е';
'Р': s[i]:='П';
'С': s[i]:='ю';
'Т': s[i]:='я';
'У': s[i]:='б';
'Ф': s[i]:='ж';
'Х': s[i]:='М';
'Ц': s[i]:='Ж';
'Ч': s[i]:='Т';
'Ш': s[i]:='ш';
'Щ': s[i]:='С';
'Ъ': s[i]:='ы';
'Ы': s[i]:='ь';
'Ь': s[i]:='е';
'Э': s[i]:='Ч';
'Ю': s[i]:='ц';
'Я': s[i]:='Ь';

'с': s[i]:='а';
'Э': s[i]:='б';
'Я': s[i]:='в';
'п': s[i]:='г';
'э': s[i]:='д';
'й': s[i]:='е';
'ф': s[i]:='ж';
'х': s[i]:='з';
'д': s[i]:='и';
'и': s[i]:='й';
'м': s[i]:='к';
'Ъ': s[i]:='л';
'ъ': s[i]:='м';
'Л': s[i]:='н';
'Н': s[i]:='о';
'щ': s[i]:='п';
'Щ': s[i]:='р';
'л': s[i]:='с';
'И': s[i]:='т';
'Д': s[i]:='у';
'Ю': s[i]:='ф';
'р': s[i]:='х';
'з': s[i]:='ц';
'Г': s[i]:='ч';
'Й': s[i]:='ш';
'а': s[i]:='щ';
'Х': s[i]:='ъ';
'Б': s[i]:='ы';
'Ф': s[i]:='ь';
'к': s[i]:='э';
'Б': s[i]:='ю';
'т': s[i]:='я';
'У': s[i]:='А';
'у': s[i]:='Б';
'Р': s[i]:='В';
'А': s[i]:='Г';
'Ш': s[i]:='Д';
'н': s[i]:='Е';
'О': s[i]:='Ж';
'Ц': s[i]:='З';
'З': s[i]:='И';
'К': s[i]:='Й';
'г': s[i]:='К';
'в': s[i]:='Л';
'о': s[i]:='М';
'ч': s[i]:='Н';
'В': s[i]:='О';
'Е': s[i]:='П';
'П': s[i]:='Р';
'ю': s[i]:='С';
'я': s[i]:='Т';
'б': s[i]:='У';
'ж': s[i]:='Ф';
'М': s[i]:='Х';
'Ж': s[i]:='Ц';
'Т': s[i]:='Ч';
'ш': s[i]:='Ш';
'С': s[i]:='Щ';
'ы': s[i]:='Ъ';
'ь': s[i]:='Ы';
'е': s[i]:='Ь';
'Ч': s[i]:='Э';
'ц': s[i]:='Ю';
'Ь': s[i]:='Я';
end;
Write(s);
end.

Тётьки-дядьки, почму не работает?

[Stilet]

Шайтан-программа:

const
 a:array[1..2] of string =(
   'абвгдежзийклмнопрстуфхцчшщъыьэюяАБВ ГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ',
   'сЭЯпэйФхдимЪъЛНщЩлИДЮрзГЙаХБфкЫтуУР АШнОЦЗКгвочВЕПюябжМЖТшСыьеЧцЬ'
);
var s:string; i:integer;
begin
 s:='АсЩЩд АуППЗюВч';
 for i:=1 to Length(s) do s[i]:=a[1][pos(a[2],s[i])];
 write(s); readln;
end.

[AnLucius]

Stilet, спасибо за быстрый ответ), но чёт не работает. Как результат выдаёт ААААА

[Аватар]

Убери лишние пробелы в константах и подправь

for i:=1 to Length(s) do s[i]:=a[1][pos(s[i],a[2])];

[AnLucius]

Межгалактический почёт и вечная уважуха!) а как поправить, что б вместо пробелов собаку(@) не ставил?

[Serge_Bliznykov]

Сообщение от AnLucius

Межгалактический почёт и вечная уважуха!) а как поправить, что б вместо пробелов собаку(@) не ставил?

Например, так:

 for i:=1 to Length(s) do
    if pos(s[i],a[2])>0 then  s[i]:=a[1][pos(s[i],a[2])];