Программа перевода из 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