Перебор двоичных комбинаций

Program PROG;
Uses CRT;
Var s:String;
    i,n:Integer;
    b:Boolean;
Begin
 ClrScr;
 s:='';
 Write('Enter a length: '); ReadLn(n);
 For i:=1 To n Do s:=s+'0';
 i:=n;
 WriteLn(s);
 Repeat
  If s[n]='0' Then s[n]:='1'
   Else
   Begin
    s[n]:='0';
    For i:=n-1 DownTo 1 Do
     If s='0' Then
       Begin
        s:='1';
        Break;
       End Else s:='0';
   End;
  WriteLn(s);
  b:=True;
  For i:=1 To n Do
   If s='0' Then Begin b:=False; Break; End;
 Until b;
ReadLn;
End.