Программа для шифровки/дешифровки

const n=33;
      alf:string[n]='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
var s1,s2:string;
    i:integer;
begin
writeln('Введите строку из малых русских букв');
readln(s1);
//шифрование
s2:='';
for i:=1 to length(s1) do
s2:=s2+alf[n-pos(s1[i],alf)+1];
write(s2);
end.

s2:='';
for i:=1 to length(s1) do
if s1[i]=' ' then s2:=s2+s1[i]
else s2:=s2+alf[n-pos(s1[i],alf)+1];

const
  A = ' абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  B = ' яюэьыъщшчцхфутсрпонмлкйизжёедгвба';
var
  S : String;
  i : Integer;
begin
  ReadLn(S);
  for i := 1 to Length(S) do
    if Pos(S[i], A) > 0 then
      S[i] := B[Pos(S[i], A)];
  WriteLn(S);
end.

const
  A = ' абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  B = ' яюэьыъщшчцхфутсрпонмлкйизжёедгвба';
begin
  WriteLn(ReadLnString.ToCharArray.Select(c->A.IndexOf(c)<0?c:B[A.IndexOf(c)+1]).JoinIntoString);
end.

const
  a = ' abcdefghijklmnopqrstuvwxyz0123456789@"#№$;%^:&?*()-_+=|\/<>.,!';
  b = ' !,.<>\/|=+_-()*?&:^%;$№#"@9876543210zyxwvutsrqponmlkjihgfedcba';
  c = ' ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789@"#№$;%^:&?*()-_+=|\/<>.,!';
  d = ' !,.<>\/|=+_-()*?&:^%;$№#"@9876543210ZYXWVUTSRQPONMLKJIHGFEDCBA';
 
var
  st: string;
  i: integer;
 
begin
  readln(st);
  for i := 1 to Length(st) do   
    if st[i] in a
      then st[i] := b[Pos(st[i], a)]
    else st[i] := d[Pos(st[i], c)];
  writeln(st);
end.

const
* a:string = ' abcdefghijklmnopqrstuvwxyz0123456789@"#№$;%^:&?*()-_+=|\/<>.,!';
* b:string = ' !,.<>\/|=+_-()*?&:^%;$№#"@9876543210zyxwvutsrqponmlkjihgfedcba';
* c:string = ' ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789@"#№$;%^:&?*()-_+=|\/<>.,!';
* d:stribg = ' !,.<>\/|=+_-()*?&:^%;$№#"@9876543210ZYXWVUTSRQPONMLKJIHGFEDCBA';
.........................................
if pos(st[i],a)>0 then

function reverse(str:string):string;
begin
  for i: integer := length(str) downto 1 do
    result += str[i];
end;
 
const
  a = ' abcdefghijklmnopqrstuvwxyz0123456789@"#№$;%^:&?*()-_+=|\/<>.,!';
  b = reverse(a);
  c = uppercase(a);
  d = uppercase(b);
 
begin
  var s: string;
  readln(s);
  for i: integer := 1 to length(s) do
  begin
    if s[i] in a then
      write(b[pos(s[i], a)])
    else if s[i] in c then
      write(d[pos(s[i], c)])
    else
      begin
        writeln;
        writeln('Ошибка, неизвестный символ');
      end;
  end;
end.

a = ' abcdefghijklmnopqrstuvwxyz';
  b = ' zyxwvutsrqponmlkjihgfedcba';
  c = ' ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  d = ' ZYXWVUTSRQPONMLKJIHGFEDCBA';
  e = '0123456789@"#№$;%^:&?*()-_+=|\/<>.,!';
  f = '!,.></\|=+_-)(*?&:^%;$№#"@9876543210';

const
  a = ' abcdefghijklmnopqrstuvwxyz' +
       'ABCDEFGHIJKLMNOPQRSTUVWXYZ' +
       '0123456789@"#№$;%^:&?*()-_+=|\/<>.,!';
  b = ' zyxwvutsrqponmlkjihgfedcba' +
       'ZYXWVUTSRQPONMLKJIHGFEDCBA' +
       '!,.></\|=+_-)(*?&:^%;$№#"@9876543210';