анаграмма

[Витас]

1)как написать программу для шифрования обратной кодировкой(анаграммой) Весь текст кодируется, начиная с последнего символа до первого, в обратном порядке

Исходный текст
ПРИМЕР АНАГРАММЫ ТЕКСТА

Результат
АТСКЕТ ЫММАРГАНА РЕМИРП

2) и для дешифрования

Кодировочная таблица
_ 1 2 3 4 5 6 7 8
1 А Б В Г Д Е Ё Ж
2 З И Й К Л М Н О
3 П Р С Т У Ф Х Ц
4 Ч Ш Щ Ъ Ы Ь Э Ю
5 Я 1 2 3 4 5 6 7
6 8 9 0 . , ! ? -

[GetMax]

Var
   st,st2,st3:String;
   i,Dl:Byte;
Begin
   Readln(St);
   Dl:=Length(St);
   St2:='';
   For i:=Dl DownTo 1 do St2:=St2+St[i];
   Write('Шифр ',St2);
   Writeln;
   Writeln;
   Dl:=Length(St2);
   St3:='';
   For i:=Dl DownTo 1 do St3:=St3+St2[i];
   Write('Расшифровка ',St3);
   Readln
End.