Pascal Шифр Цезаря

[EvilExe]

Программа сдвигает буквы в заданном слове на заданной ключ (который ввёл пользователь) - Шифр Цезаря

program cez; 
uses crt;
var a,b,sh,bl:string; k,p,p1,pb1,i:integer;
begin
clrscr;
writeln('Ввести: слово для шифра');
readln(a);
writeln('Ввести ключ');
readln(k);
if k>32 then k:=k mod 32;
sh:='';
b:='абвгдежзийклмнопрстуфхцчшщъыьэюя';
bl:='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
for i:=1 to length (a) do
   begin
      p:=pos(a[i],b);
      if p=0 then 
      begin
         pb1:=pos(a[i],bl);
         p1:=pb1+k;
         if p1>32 then p1:=p1-32;
         sh:=sh+bl[p1];
       end
   else
      begin
         p1:=p+k;
         if p1>32 then p1:=p1-32;
        sh:=sh+b[p1];
      end;
   end;
writeln('Шифр: ',sh);
readln;
end.

Теория:
Суть программы: сдвиг букв вправо на заданное количество(ключ). Программа работает с русским алфавитом в обоих регистрах.

Автор: EvilExe