1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  i    : Integer;
  k   : Byte;
  s   : String;
begin
  s := '';
  i := <die zahl die umgewandelt werden soll>;
  k := 0;
  while (i <> 0) do
  begin
    i := i / 2;
    k := i MOD 2;
    s := chr( k + '0' ) + s;
  end;
  writeln( s );
    // s kann jetzt weiterverwendet werden...
end.					

1:

i := i / 2;					

1:

i := i div 2;					

1:

s := chr( k + '0' ) + s;					

1:

s := chr(k + BYTE('0')) + s					

1:

i := abs(i);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

// Konvertiert Dezimalzahl (z.B. 132) in BinString (z.B. '01101011')
// Len gibt an wie lang der BIN-String sein soll (Auffüllung mit 0'en)
function DecToBin(Dec, Len: Byte): String;
begin
  while Dec > 0 do begin
    Result := IntToStr(Dec mod 2) + Result;
    Dec := Dec div 2;
  end;
  while Length(Result) < Len do Result := '0' + Result;
end;