Шифр Цезаря

program zesar;
uses crt;
var
  i, q, j: integer;
  z, a: string;
  ru_bol: array[0..31, 'А'..'Я'] of char;
  ru_mal: array[0..31, 'а'..'я'] of char;
  en_bol: array[0..25, 'A'..'Z'] of char;
  en_mal: array[0..25, 'a'..'z']of char;
  jo_bol: array[0..32] of char;
  jo_mal: array[0..32] of char;
  c, x: char;
procedure zapolnenie;
var
  x: char;
  j: integer;
begin
 for j:= 0 to 31 do
 begin
  for x:= 'а' to 'я' do
  begin
   if ord(x) + j > 255 then
    ru_mal[j, x]:= chr(ord(x) + j - 32)
   else
    ru_mal[j, x]:= chr(ord(x) + j);
  end;
  for x:= 'А' to 'Я' do
  begin
   if ord(x) + j > 233 then
    ru_bol[j, x]:= chr(ord(x) + j - 32)
   else
    ru_bol[j, x]:= chr(ord(x) + j);
  end;
 end;
 for j:= 0 to 25 do
 begin
  for x:= 'a' to 'z' do
  begin
   if ord(x) + j > 122 then
    en_mal[j, x]:= chr(ord(x) + j - 26)
   else
    en_mal[j, x]:= chr(ord(x) + j);
  end;
  for x:= 'A' to 'Z' do
  begin
   if ord(x) + j > 90 then
    en_bol[j, x]:= chr(ord(x) + j - 26)
   else
    en_bol[j, x]:= chr(ord(x) + j);
  end;
 end;
 for j:= 0 to 32 do
 begin
  if 197 + j > 223 then
   begin
   if j = 0 then
    jo_bol[j]:= 'Ё'
   else
    jo_bol[j]:= chr(197 + j - 33);
   end
  else
   jo_bol[j]:= chr(197 + j);
  if 229 + j > 255 then
   begin
   if j = 0 then
    jo_mal[j]:= 'ё'
   else
    jo_mal[j]:= chr(229 + j - 33);
   end
  else
   jo_mal[j]:= chr(229 + j);
 end;
end;
begin
 zapolnenie;
 write('Какой сдвиг? ');
 readln(q);
 writeln('Введите предложение или текст');
 readln(a);
 for i := 1 to length(a) do
 begin
  c:= a[i];
  if c <> ' ' then
  begin
   if (ord(c) >= 192) and (ord(c) <= 223) then;
   begin
    if q < 0 then
     x:= ru_bol[q + 32, c]
    else
     x:= ru_bol[q, c];
   end;
   if (ord(c) + q >= 224) and (ord(c) + q <= 255) then
   begin
    if q < 0 then
     x:= ru_mal[q + 32, c]
    else
     x:= ru_mal[q, c];
   end;
   if (ord(c) >= 65) and (ord(c) <= 90) then
   begin
    if q < 0 then
     x:= en_bol[q + 26, c]
    else
     x:= en_bol[q, c];
   end;
   if (ord(c) >= 97) and (ord(c) <= 122) then
   begin
    if q < 0 then
     x:= en_mal[q + 26, c]
    else
     x:= en_mal[q, c];
   end;
   if c = 'Ё' then
   begin
    if q < 0 then
     x:= jo_bol[q + 33]
    else
     x:= jo_bol[q];
   end;
   if c = 'ё' then
   begin
    if q < 0 then
     x:= jo_mal[q + 33]
    else
     x:= jo_mal[q];
   end;
  end;
   z:= z + x;
 end;
 clrscr;
 writeln('Зашифрованный текст');
 write(z);
end.

var
  lalp: integer;
 
const
  alp = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя' +
    'АБВГДЕЁЖЗИЙКЛМНПОРСТУФХЦЧШЩЪЫЬЭЮЯ' + 'abcdefghijklmnopqrstuvwxyz' +
    'ABCDEFGHIJKLMNOPQRSTUVWXYZ' + '0123456789';
 
function Caesar_cipher(str: string; way: integer; key: integer): string;
var
  s: string;
  i, t: integer;
begin
  if way > 0 then
    key := -key;
  key := key mod lalp;
  if key = 0 then
  begin
    writeln('Error: wrong key (key not equals zero and not divisible by ',
      lalp, ')');
    Caesar_cipher := str;
    exit;
  end;
  s := str;
  for i := 1 to length(str) do
  begin
    t := pos(str[i], alp);
    if t <> 0 then
      s[i] := alp[(t - 1 + key + lalp) mod lalp + 1];
  end;
  Caesar_cipher := s;
end;
 
begin
  lalp := length(alp);
  writeln(Caesar_cipher('Тестовая фраза', 0, 12));
  // 12 - сдвиг
  readln;
end.