Пример кода программы:

program PrintCharCode;
var
charCode: integer;
begin
writeln('Введите код символа:');
readln(charCode);
writeln('Символ по коду ', charCode, ' : ', chr(charCode));
end.

Эта программа запрашивает у пользователя код символа, а затем выводит сам символ, соответствующий этому коду.