SoloCodigo

tengo este codigo que pasa de decimal a binario pero quiero saber si me pueden ayuda  a ser este programa de binario a decimal......

uses
  SysUtils,CONSOLE;
VAR NUM,AUXNUM,I,SUMA,DIGITO,EXPO:LONGINT; VAR x:STRING;
begin

REPEAT
  CLRSCR;
          WRITELN('Igrese el Numero Decimal');
          readln(num);
suma:=0;
auxnum:=num;
expo:=1;
repeat
  digito:=auxnum mod 2;
  auxnum:=auxnum div 2;
suma:=suma +digito * expo;
expo:=expo * 10 ;
until auxnum <=0;
  writeln('El Numero BInario Es:::');
writeln(suma);
writeln('Desea Continuar s/n ? ');
suma:=0;
readln(x);
UNTIL x='n';
end.