De decimal a binario SIN decimales

Bueno señores, me he puesto con el IEEE a Decimal y lo tengo muy avanzado. Para que os podáis guiar un poco os dejo aquí un conversor de decimal a binario. Muy simple, pero si os rompéis un poco el coco sacáis como hacerlo con decimales y partiendo de un string. Luego cuelgo el procedimiento que permite hacer que un string funcione como un entero. De nada.

POR CIERTO NO HAGÁIS CASO AL TÍTULO, UNO EMPIEZA CON UNAS COSAS Y ACABA CON OTRAS JAJA

PROGRAM prueba_DIV (input,output);
(*Programa para probar el DIV y el MOD *)
TYPE
    TAbinario=ARRAY [1..23] OF integer;
    TAbinario1=ARRAY [1..23] OF integer;
VAR
   Numero:integer;
   Resultado:integer;
   Resultado2:integer;
   Resultado3:integer;
   i:integer VALUE (1);
   j:integer VALUE (1);
   Abinario:TAbinario;
   Abinario1:TAbinario1;
BEGIN
     REPEAT
     i:=1;
     j:=1;
     Readln(Numero);
     IF Numero MOD 2 =1 THEN
        Resultado3:=1
     ELSE
         Resultado3:=0;
     WHILE i<=23 DO
           BEGIN
                Resultado:=Numero DIV (2);
                Resultado2:=Numero MOD (2);        
                Abinario[i]:=Resultado2;
                Numero:=Numero DIV (2);
                (*Write(Abinario[i]:0);*)
                i:=i+1;
            END;
     Abinario1[23]:=Resultado3;
     Writeln;
     Write('El numero en binario es: ');
     i:=22;
     WHILE i>=1 DO
           BEGIN
                Abinario1[j]:=Abinario[i];      
                Write(Abinario1[j]:0);
                j:=j+1;
                i:=i-1;
           END;
     Writeln;
     i:=1;
     j:=23;
             
     (*Writeln(Resultado:0,' ',Resultado2:0);*)
     UNTIL Numero=22;

END.

Ejemplo de ejecucion