Строки и символы. Тексты программ

Определение кода по символу и символа по коду

var 
  c: char;
  code: integer;
begin
  c := 'z';
  code := Ord(c);
  writeln('Код символа ',c,' равен ',code);
  code := 35;
  c := Chr(code);
  writeln('Символ с кодом ',code,' - это ',c);
end.

Преобразование цифрового символа в соответствующее однозначное число и обратно

var 
  c: char;
  digit: integer;
begin
  c := '5';
  digit := Ord(c) - Ord('0');
  writeln('Цифра, соответствующая символу ''',c,''' - это ',digit);
  digit := 7;
  c := Chr(digit + Ord('0'));
  writeln('Символ цифры ',digit,' - это ''',c,'''');
end.

Ссылки

Программы для начинающих