Закодировать строку при помощи шифра Юлия Цезаря - PascalABC.NET

Формулировка задачи:

Условие

Дана строка, состоящая из маленьких букв латинского алфавита. Требуется закодировать строку при помощи шифра Юлия Цезаря. Суть этого шифра такова: каждая буква сдвигается на три позиции по алфавиту, т.е. a заменяется на d, b — на e, p — на s, w — на z, x — на a, y — на b, z — на c.

Формат входного файла

Входной файл содержит строку, которую требуется закодировать.

Формат выходного файла

Выходной файл должен содержать закодированную строку. Закодированная строка должна быть такой же длины, как строка во входном файле.

Ограничения

Длина строки от 1 до 200 символов.

Решение задачи: «Закодировать строку при помощи шифра Юлия Цезаря»

textual
                            Листинг программы 
                        
 
                        
                          
                    
var
  st: string;
  i: byte;
begin
  Write('Write string : ');
  readln(st);
  for i := 1 to Length(st) do
    st[i] := chr(97 + (ord(st[i]) - 94) mod 26);
  writeln('Cezar font : ', st);
end.