Вывести два символа, первый из которых предшествует символу C в кодовой таблице - Pascal ABC

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

3.Дан символ C. Вывести два символа, первый из которых предшествует символу C в кодовой таблице, а второй следует за символом C. Ребята помогите пожалуйста буду сильно благодарен к часу на пару надо отдать

Решение задачи: «Вывести два символа, первый из которых предшествует символу C в кодовой таблице»

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

Var C : Char;
Begin
  C:='B'; { Readln(C); }
  Writeln(Chr(Ord(C)-1)+Chr(Ord(C)+1));
  Writeln(Pred(C),Succ(C));
end.

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

В данном коде происходит следующее:

Объявляется переменная C типа Char, которая будет использоваться для хранения символа, считываемого из стандартного ввода.
С помощью функции Readln(C) происходит чтение символа из стандартного ввода и его сохранение в переменной C.
Затем с помощью функций Ord(C) и Chr(Ord(C)) вычисляются позиции символа C в кодовой таблице и выводятся на экран.
Функции Pred(C) и Succ(C) возвращают предыдущий и следующий символы соответственно.
Код завершается с помощью оператора End.