Array umdrehen

Hallo,
ich versuche gerade ein Programm zu schreiben, welches mir eine Zahl in einen Binär-Code umwandelt.

Das Problem:
Wenn ich z.B die Zahl „1“ eingebe gibt er mir den Binär-Code „1000“ und nicht „0001“.

Gibt es eine Möglichkeit den Array, der den Code ausgibt einfach umgedreht laufen zu lassen?

MfG

Bazilla

So habe ein bisschen rumprobiert und die Antwort selbst gefunden.^^
Einfach den Array so rückwerts laufen lassen:

for i := 4 downto 1
write(array[i]);

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]