двоичная система

[terminadoor]

Здрасте. Можете напомнить алгоритм перевода целого числа в двоичную систему и дать код процедур на паскаль. Как всегда благодарю всех заранее за помощь.

[eoln]

function IntToBin(Value: integer; Digits: integer): string; 
var 
  i: integer;
  s: string;
begin
  s := '';
  for i := 0 to Digits - 1 do
  if Value and (1 shl i) > 0
    then s := '1' + s
    else s := '0' + s;
  IntToBin := s
end; 

begin
  writeln(IntToBin(6, 8));//число и кол-во цифр
  readln
end.