Pascal/Turbo Pascal - Decimal a Hexadecimal

Wao esta si que es una web X-D

bueno hola, tengo una duda como hago para convertir un numero decimal en hexadecimal. usando solo If y else.

Gracias de antemano.

Con IF y ELSE no me suena
pero lo haria con una cadena DIGITOSHEX:=\'0123456789ABCDEF\'
haria divisiones consecutivas y en cada division haria esto

Residuo:=Numero mod 16;
Numero:=Numero div 16;
CADENA:=CADENA + DIGITOSHEX[Residuo];

claro es una combinación de pascal con pseudocodigo pero la idea es esa