free pascal binario a hexadecimal

[bothy]

tengo este codigo pero lo malo que nomas me sirve para esa converciones nomas quisiera que me ayudaran para poder poner un digito mas grande como 10000 ese binario seria un diez en hexadecimal ..


var num,aux:longint;
var suma,x:string;
begin
repeat
clrscr;
writeln('Leer Numero Binario');readln(num);

if num=1then
begin suma:='1';end;
if num=10 then
begin suma:='2'; end;
if num= 11 then
begin suma:='3'; end;
if num=100 then
begin suma:='4'; end;
if num=101 then
begin suma:='5'; end;
if num= 110 then
begin suma:='6'; end;
if num=111 then
begin suma:='7' ; end;
if num=1000 then
begin suma:= '8'; end;
if num=1001 then
begin suma:='9'; end;
if num=1010 then
begin suma:='A'; end;
if num=1011 then
begin suma:='B'; end;
if num=1100 then
begin suma:='C' ; end;
if num=1101 then
begin suma:='D';end;
if num=1110 then
begin suma:='E'; end;
if num=1111 then
begin suma:='F' ;end;
writeln('Numero Hexadeimal ::');
writeln(suma);
writeln('Desea continuar s/n?');readln(x);
until x='n';
end;