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

[#Azamat]

Программа определеяет код по символу и символ по коду

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

Автор: Неизвестен