Программа перевода из 10 сс в 16 сс на паскале. (как можно проще, используя функции, заранее .

Var 
d, n: longint; 
    h: string; 
begin 
    write('n? '); 
    readln(n); 
    repeat 
        d := n mod 16; 
        if d < 10 then 
            h := chr(ord('0') + d) + h 
        else 
            h := chr(ord('A') - 10 + d) + h; 
        n := n div 16; 
    until n = 0; 
    writeln(h, 'h'); 
     end