Перевести целое положительное десятичное число в шестнадцатеричное счисление

[Alfis]

Здравствуйте, я вот пишу лабораторную, и у меня ничего не получается. задание такое:"Перевести целое положительное десятичное число в шестнадцатеричное счисление"
Всем заранее благодарен.

[dark064]

а само число дано?

[Alfis]

Нет, число вводится любое

[Tkirill]

program dectohex;
uses crt;
var
ch:char;
i,j,m,n,k,l:integer;
s,st,s1,s2,s3:string;
begin
clrscr;
write(' -> ');
readln(n);
s:='0123456789ABCDEF';
writeln;
st:='';
repeat
a:=n mod 16;
st:=st+s[a+1];
n:=n div 16;
until n<16;
st:=st+s[n+1];
for i:=1 to length(st) div 2 do
begin
ch:=st[i];
st[i]:=st[length(st)-i+1];
st[length(st)-i+1]:=ch;
end;
write(st);
readln;
end.