Преобразование числа в шестнадцатеричную систему счисления — Pascal(Паскаль)

Program Hex;  
var 
    n : Integer; {Вводимое число} 
    ch : Char; {Результат} 
begin 
Write('n = '); 
ReadLn(n); {Вводим число}
{ Проверяем число на принадлежность к диапазону 0...15}
if (n >= 0) and (n <= 15) then 
    begin {Да, принадлежит диапазону} 
        if n < 10 then 
            ch := chr(ord('O') + n) 
        else 
            ch := chr(ord('A') + n - 10); 

        Writeln('n - ',ch)
    end 
else {He принадлежит диапазону} 
    WriteLn('Ошибка') 
end.