Дано предложение на русском языке. Зашифровать ее, выполнив циклическую замену каждой буквы на следующую - Pascal

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

очень нужна помощь с паскалем

Дана строкапредложение на русском языке. Зашифровать ее, выполнив циклическую замену каждой буквы на следующую за ней в алфавите и сохранив при этом регистр букв («А» перейдет в «Б», «а» — в «б», «Б» — в «В», «я» — в «а» и т.д.). Букву «ё» в алфавите не учитывать («е» должна переходить в «ж»). Знаки препинания и пробелы не изменять.

Решение задачи: «Дано предложение на русском языке. Зашифровать ее, выполнив циклическую замену каждой буквы на следующую»

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

var
  s: string;
  i: integer;
begin
  WriteLn('Введите строку: ');
  ReadLn(s);
  for i:=Length(s) downto 1 do
    case s[i] of
    'А'..'Ю', 'а'..'о', 'р'..'ю': inc(s[i]);
    'Я': s[i]:='А';
    'я': s[i]:='а';
    'п': s[i]:='р';
    end;
  WriteLn(s);
end.

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

В начале объявляются переменные s и i типа string и integer соответственно.
Затем выводится сообщение «Введите строку: », чтобы пользователь мог ввести строку.
С помощью функции ReadLn считывается введенная пользователем строка и сохраняется в переменной s.
Далее идет цикл for, который начинается с переменной i равной длине строки s и продолжается до i=1.
Внутри цикла происходит проверка каждой буквы в строке s с помощью оператора case.
Если символ соответствует одному из символов 'А'..'Ю' или 'а'..'о', то значение символа увеличивается на единицу и сохраняется в переменной s[i].
Если символ равен 'Я', то значение символа заменяется на 'А'.
Если символ равен 'я', то значение символа заменяется на 'а'.
Если символ равен 'п', то значение символа заменяется на 'р'.
После выполнения всех проверок выводится отформатированное сообщение с помощью функции WriteLn с переменной s.
В конце программы выводится конечная версия закодированной строки.