A parte che queste due righe andrebbero invertite (altrimenti perdi il primo resto, ovvero la cifra meno significativa)

codice:
risultato:=risultato div 2;
resto:=risultato mod 2;
Per poterle "leggere" in ordine inverso dovrai prima memorizzarle in una apposita struttura (per la banalità della cosa potrebbe bastarti tranquillamente una stringa di caratteri), quindi scorrere questa struttura al contrario (per una stringa, potresti costruirti una funzione che la inverte).


Ciao.