Зашифровать введенную с клавиатуры строку - Pascal

Зашифровать введенную с клавиатуры строку, заменой символов на символы с кодом, меньшим на две единицы. Провести дешифровку.

Листинг программы

var
  s:string;
  i:integer;
begin
  readln(s);
  for i:=1 to length(s) do
    s[i]:=chr(ord(s[i])-2);
  writeln(s)
end.

Объяснение кода листинга программы

Введенная с клавиатуры строка сохраняется в переменной s типа string.
Переменная i инициализируется значением 1.
Используя цикл for, происходит обработка каждого символа строки s.
Для каждого символа вычисляется его числовое значение в кодировке ASCII с помощью функции ord.
К полученному числовому значению символа применяется операция вычитания 2.
Полученное значение приводится к типу char с помощью функции chr.
Обновленное значение символа заменяет соответствующий символ в строке s.
После обработки всех символов строки, она выводится на экран с помощью функции writeln.