Hallo Speedy23,
schon mal daran gedacht, die Logik und die Ausgabe zu vereinen?
Delphi-Quellcode:
procedure WriteBin(aNum: word; Anz: integer = 4*4-1);
begin
if (aNum and $8000) <> 0 then
write('1')
else
write('0');
if Anz > 0 then
WriteBin(aNum shl 1, Anz -1);
end;
Der Aufruf sähe in etwa wie folgt aus:
WriteBin(12);
Schöne Grüße
Oreaden