Шифр Цезаря

program Cipher_of_Caesar;
const sdvig=3;
 
procedure code(var text:string);             //Процедура шифровки
  var i,kodASCII:integer;
  begin
 
    writeln('***');
    writeln('Введите текст:');
    readln(text);
    for i:=1 to length(text) do
      begin
        kodASCII:=ord(text[i])+sdvig;       //Сдвиг по коду ASCII
        if kodASCII>256 then kodASCII:=kodASCII-256;
        text[i]:=chr(kodASCII);
      end;
    write('Ваш текст на шифре Цезаря: ');
    writeln(text);
    
 
  end;  
 
procedure decode(var text1:string);           //Продедура расшифровки
  var i,kodASCII:integer;
      answer:char;
  begin
  
    writeln('***');
    writeln('Желаете расшифровать?');
    readln(answer);
    if (answer='да') or (answer='yes') or (answer='Да') or (answer='Yes') then
      begin      
        for i:=1 to length(text1) do
          begin
            kodASCII:=ord(text1[i])-sdvig;
            if kodASCII<=0 then kodASCII:=kodASCII+256;
            text1[i]:=chr(kodASCII);
          end;  
      end;
    write('Расшифровка кода: ');
    writeln(text1);
  
  end;
   
var text2:string;
begin
 
  code(text2);
  decode(text2);
 
end.