Dezimal auf Binär mithilfe von shr

[polruler]

Hallo ich hab mal ein paar fragen an euch da ich mich nicht sonderlich mit Pascal auskenne. Ich soll etwas programmieren womit man von Dezimal auf binär kommt. Das soll ich mit Hilfe einer verbalen Beschreibung lösen, aber die verwirrt mich nur

-Definiere die Variable "bitmask" als BYTE, diese soll mit 128 initialisiert werden.
-bitmask soll mit jedem Schleifendurchgang um eine Stelle nach rechts geschoben werden.
-Die Schleife endet wenn das Bit auf Null gesetzt ist.
-Innerhalb der Schleife soll die Variable "eingabe" mit der Variable "bitmask" verknüpft werden. Du hast AND, OR, XOR zur Verfügung.
-Ist das Bit gesetzt, speichere im Ausgabestring das Zeichen 1, ist es nicht gesetzt das Zeichen 0.

Dazu ist auch der Funktionskopf gegeben:

Code:

function dec2bin(eingabe : BYTE) : STRING;

Wäre toll wenn ihr mir weiterhelfen könntet