Закодировать строку при помощи шифра Юлия Цезаря - 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.
                        