Собственная процедура/функция которая возвращает код символа - Free Pascal

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

Помогите пожалуйста создать собственную процедуру/функцию которая возвращает код символа.

Вводим:

символ

Получаем:

число

Стандартные функции (например: ord) нельзя использовать.

Решение задачи: «Собственная процедура/функция которая возвращает код символа»

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

function MyChr(n: Byte): Char;
begin
  MyChr:=Char(n);
end;
 
function MyOrd(c: Char): Byte;
begin
  MyOrd:=Byte(c);
end;
 
function MyPred(c: Char): Char;
begin
  MyPred:=Char(Byte(c)-1);
end;

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

В этом коде есть три функции, которые выполняют следующие действия:

Функция MyChr принимает однобайтовый параметр n и возвращает символ, соответствующий этому байту.
Функция MyOrd принимает параметр c, который является символом, и возвращает его порядковый номер в кодировке символов.
Функция MyPred принимает параметр c, который является символом, и возвращает предыдущий символ в кодировке символов.