16-ричная система счисления:

procedure hex(n: word);
const xlat = '0123456789ABCDEF';
var i: word;
    s: string;
begin
  s := ' ';
  for i := 1 to 4 do
    begin
      s := xlat[n mod 16 + 1] + s;
      n := n div 16
    end;
  write(s)
end;