Шифрование со сдвигом методом Цезаря

var
a: array['а'..'я'] of string;
i, s: integer;
p: string;
begin
writeln ('Введите предложение');
readln (p);
writeln ('Чему равен сдвиг?');
readln (s);
for i:=1 to length(p) do
p[i]:=chr(ord(p[i])+s);
writeln (p);
end.

const
  n = 3;
 
function CaesarEncipher(toCode: string): string;
var i, T: integer;
begin
  for i := 1 to length(toCode) do begin
    T := (Ord(toCode[ i ]) + n);
    if T >= 256 then dec(T, 256);
    toCode[ i ] := Chr(T);
  end;
  CaesarEncipher := toCode;
end;
 
function CaesarDecipher(toDecode: string): string;
var i, T: integer;
begin
  for i := 1 to length(toDecode) do begin
    T := (Ord(toDecode[ i ]) - n);
    if T < 0 then Inc(T, 256);
    toDecode[ i ] := Chr(T);
  end;
  CaesarDecipher := toDecode;
end;
 
{ применение: }
var
  s: string;
 
begin
  s := CaesarEncipher('just a Caesar');
  writeln(s);
  writeln('s = ', CaesarDecipher(s));
end.

var
   n, i: integer;
   s: string;
   f1, f2: text;
 
begin
  writeln ('Введите предложение');
  readln (s);
  writeln ('Чему равен сдвиг?');
  readln (n); 
  write('Шифр Цезаря -> ');
  for i := 1 to length(s) do
    begin
      if s[i] in ['а'..'я']
        then if (ord(s[i]) + n) < ord('я') 
                then s[i] := chr(ord(s[i]) + n)
                else s[i] := chr(ord('а') + (ord(s[i]) + n - ord('а'))mod 32)
        else if s[i] in ['А'..'Я'] then 
      if (ord(s[i]) + n) < ord('Я')
        then s[i] := chr(ord(s[i]) + n)
        else s[i] := chr(ord('А') + (ord(s[i]) + n - ord('А'))mod 32);
      write(s[i])
    end
end.