Na so wie ich es geschrieben habe
Indem Du die Zehner mit einem Shift-Befehl um 4-Bits nach oben schiebst.
in C geht das mit dem Befehl
(Zehner << 4)
Wie das in Pascal geht weiß ich nimmer sollte aber mit Dr. Google leicht herauszfinden sein.

Noch mal als Erklärung was folgender Befehl macht:
PORTD = (zehner << 4) | einer;

1. Wird die Zehner-Zahl um vier Bits nach oben geschoben also an PD4-PD7
2. Dann wird mit der Einer-Zahl Oder-Verknüpft -> die Einer-Zahl ist auf PD0-PD3

So, viel Spaß noch beim Basteln, Jochen