Подпрограммы для работы с символами

function Chr(a: word): char;
        Преобразует код в символ в кодировке Unicode
function ChrAnsi(a: byte): char;
        Преобразует код в символ в кодировке Windows
function ChrUnicode(a: word): char;
        Преобразует код в символ в кодировке Unicode
procedure Dec(var c: char);
        Уменьшает код символа c на 1
procedure Dec(var c: char; n: integer);
        Уменьшает код символа c на n
procedure Inc(var c: char);
        Увеличивает код символа c на 1
procedure Inc(var c: char; n: integer);
        Увеличивает код символа c на n
function LowCase(ch: char): char;
        Преобразует символ в нижний регистр
function LowerCase(ch: char): char;
        Преобразует символ в нижний регистр
function Ord(a: char): word;
        Преобразует символ в код в кодировке Unicode
function OrdAnsi(a: char): byte;
        Преобразует символ в код в кодировке Windows
function OrdUnicode(a: char): word;
        Преобразует символ в код в кодировке Unicode
function Pred(x: char): char;
        Возвращает предшествующий x символ
function Succ(x: char): char;
        Возвращает следующий за x символ
function UpCase(ch: char): char;
        Преобразует символ в верхний регистр
function UpperCase(ch: char): char;
        Преобразует символ в верхний регистр