десятичное число в шеснадцатеричное

useu crt;

var

n: integer;
r: integer;
s: string[16];
buf: string[1];
begin
clrscr;
write('Введите целое число =');
readln(n);
s:=' ';
write('Десятичному числу ', n);
write(' соответствует шестнадцатеричное ');
repeat
r:=n mod 16;
n:=n div 16;
if r<10 then buf:=chr(r+48)
else buf:=chr(r+55);
s:=buf+s;
until (n<16);
if n<>0 then
begin
if n<10 then buf:=chr(r+48)
else buf:=chr(r+55);
s:=buf+s;
end;
writeln(s);
readln;
end.