Программа для конвертирования файла с вопросами к игре “Как стать миллионером”

Игрался я однажды в игру “Как стать миллионером” и надоело мне проигрывать. Я решил посмотреть в каком формате там сохранены вопросы и правильные ответы. Оказалось, что в простом DBF файле. Я его открыл и увидел закодированный текст. Кодировка оказалась простая: каждый символ кодировался символом, следующим за ним. То есть б:=а, в:=б и так далее. Чтобы не морочить голову, я начал писать не сложную программу, которая раскодировала бы эти вопросы и ответы в игре. Программка, конечно, не завершенная, но что-то у меня получилось ;-). Код тоже не ахти, но на скорую руку пойдет).

Program adminadmin.ru;

uses wincrt;
var t1,t2:text; k1,k2,l:integer; ch1,ch2:char;
begin
k1:=0;
k2:=0;
l:=0;
writeln;
assign(t1,’d:\t1.txt’); reset(t1);
assign(t2,’d:\t2.txt’); rewrite(t2);
Reset(t1);
rewrite(t2);
While not eof(t1) do
Begin
While not eoln(t1) do
Begin
Read(t1,ch1);
If ch1=’!’ then Write(t2,’ ‘);
If ch1=’б’ then Write(t2,’а’);
If ch1=’в’ then Write(t2,’б’);
If ch1=’г’ then Write(t2,’в’);
If ch1=’д’ then Write(t2,’г’);
If ch1=’е’ then Write(t2,’д’);
If ch1=’ё’ then Write(t2,’е’);
If ch1=’ж’ then Write(t2,’е’);
If ch1=’з’ then Write(t2,’ж’);
If ch1=’и’ then Write(t2,’з’);
If ch1=’й’ then Write(t2,’и’);
If ch1=’к’ then Write(t2,’й’);
If ch1=’л’ then Write(t2,’к’);
If ch1=’м’ then Write(t2,’л’);
If ch1=’н’ then Write(t2,’м’);
If ch1=’о’ then Write(t2,’н’);
If ch1=’п’ then Write(t2,’о’);
If ch1=’р’ then Write(t2,’п’);
If ch1=’с’ then Write(t2,’р’);
If ch1=’т’ then Write(t2,’с’);
If ch1=’у’ then Write(t2,’т’);
If ch1=’ф’ then Write(t2,’у’);
If ch1=’х’ then Write(t2,’ф’);
If ch1=’ц’ then Write(t2,’х’);
If ch1=’ч’ then Write(t2,’ц’);
If ch1=’ш’ then Write(t2,’ч’);
If ch1=’щ’ then Write(t2,’ш’);
If ch1=’ъ’ then Write(t2,’щ’);
If ch1=’ы’ then Write(t2,’ъ’);
If ch1=’ь’ then Write(t2,’ы’);
If ch1=’э’ then Write(t2,’ь’);
If ch1=’ю’ then Write(t2,’э’);
If ch1=’я’ then Write(t2,’ю’);
If ch1=’Ё’ then Write(t2,’я’);
If ch1=’@’ then Write(t2,’?');
If ch1=’;’ then Write(t2,’;');
If ch1=’Б’ then Write(t2,’А’);
If ch1=’В’ then Write(t2,’Б’);
If ch1=’Г’ then Write(t2,’В’);
If ch1=’Д’ then Write(t2,’Г’);
If ch1=’Е’ then Write(t2,’Д’);
If ch1=’ё’ then Write(t2,’е’);
If ch1=’Ж’ then Write(t2,’Е’);
If ch1=’З’ then Write(t2,’Ж’);
If ch1=’И’ then Write(t2,’З’);
If ch1=’Й’ then Write(t2,’И’);
If ch1=’К’ then Write(t2,’Й’);
If ch1=’Л’ then Write(t2,’К’);
If ch1=’М’ then Write(t2,’Л’);
If ch1=’Н’ then Write(t2,’М’);
If ch1=’О’ then Write(t2,’Н’);
If ch1=’П’ then Write(t2,’О’);
If ch1=’Р’ then Write(t2,’П’);
If ch1=’С’ then Write(t2,’Р’);
If ch1=’Т’ then Write(t2,’С’);
If ch1=’У’ then Write(t2,’Т’);
If ch1=’Ф’ then Write(t2,’У’);
If ch1=’Х’ then Write(t2,’Ф’);
If ch1=’Ц’ then Write(t2,’Х’);
If ch1=’Ч’ then Write(t2,’Ц’);
If ch1=’Ш’ then Write(t2,’Ч’);
If ch1=’Щ’ then Write(t2,’Ш’);
If ch1=’Ъ’ then Write(t2,’Щ’);
If ch1=’Ы’ then Write(t2,’Ъ’);
If ch1=’Ь’ then Write(t2,’Ы’);
If ch1=’Э’ then Write(t2,’Ь’);
If ch1=’Ю’ then Write(t2,’Э’);
If ch1=’Я’ then Write(t2,’Ю’);

If ch1=’-’ then Write(t2,’п’);
If ch1=’0′ then Write(t2,’0′);
If ch1=’1′ then Write(t2,’1′);
If ch1=’2′ then Write(t2,’2′);
If ch1=’3′ then Write(t2,’3′);
If ch1=’4′ then Write(t2,’4′);
If ch1=’5′ then Write(t2,’5′);
If ch1=’6′ then Write(t2,’6′);
If ch1=’7′ then Write(t2,’7′);
If ch1=’8′ then Write(t2,’8′);
If ch1=’9′ then Write(t2,’9′);
If ch1=’H’ then Write(t2,’G');
If ch1=’T’ then Write(t2,’S');
If ch1=’N’ then Write(t2,’M');
If ch1=’.’ then Write(t2,’-');
If ch1=’#’ then Write(t2,’”‘);
If ch1=” then Write(t2,”);
If ch1=” then Write(t2,”);
If ch1=” then Write(t2,”);
If ch1=” then Write(t2,”);
If ch1=” then Write(t2,”);
If ch1=” then Write(t2,”);
If ch1=” then Write(t2,”);