Корректная запись в файл : Pascal

[kolyaz]

Есть код - прекрасно работает, но не могу сделать запись в файл txt ,чтоб было как в консоле

uses crt;
const 
   name='c:\example\out.txt';
   NMax=256;
procedure Gray(n:integer);
var i,j,k,p:integer;
B: array[1..NMax] of 0..1; // Битовая шкала для представления  подмножеств
F:Text;
begin 
         assign(F,name);
         Rewrite(F);
     for k:=1 to n do B[k]:=0; //Инициализация
       i:=0; write('№ '+' ');
     repeat
         
        for k:=1 to n do 
        write(B[k] );  write(F,B[k]);
        writeln( );
        i:=i+1; //i определяет число сгенерированных подмножеств
         write(i+' '+' ');
        
         p:=1;
         j:=i;
         
          while j mod 2 = 0 do //четно
        
            begin //j*2p-1 = i
                j:=j div 2; 
                p:= p+1
            end; 
            
                if p <= n then //p определяет номер изменяемого разряда
                    B[p]:=1-B[p]; 
                    until p>n;
   Close(F);                 
end;
 
begin
    var n:integer;
    
    writeln('Введите мощность  : ');
    readln(n);
    writeln('Гененерация по Грею : ');
    Gray(n);
   
    
end.

[Stilet]

Каждый из write(ln) продублируй в с параметром F в начале. Будет тебе запись и туда и туда.

[kolyaz]

Вроде переделал

const 
   name='c:\example\out.txt';
   NMax=256;
var F:Text;
procedure Gray(n:integer);
var i,j,k,p:integer;
B: array[1..NMax] of 0..1; // Битовая шкала для представления  подмножеств

begin 
         assign(F,name);
         Rewrite(F);
     for k:=1 to n do B[k]:=0; //Инициализация
       i:=0; write('№ '+' ');write(F,'№ '+' ');
     repeat
         
        for k:=1 to n do 
        write(B[k] );  write(F,B[k]);
        writeln( );writeln(F,'');
        i:=i+1; //i определяет число сгенерированных подмножеств
         write(i+' '+' ');write(F,i+' '+' ');
        
         p:=1;
         j:=i;
         
          while j mod 2 = 0 do //четно
        
            begin //j*2p-1 = i
                j:=j div 2; 
                p:= p+1
            end; 
            
                if p <= n then //p определяет номер изменяемого разряда
                    B[p]:=1-B[p]; 
                    until p>n;
                    Close(F);
end;

begin
    var n:integer;
    
    writeln('Введите мощность  : ');
    readln(n);
    writeln('Гененерация по Грею : ');
    Gray(n);
   
    
end.

но все равно в файле txt:
№ 0
1 0
2 0
3 0
4 1
5 1
6 1
7 1
8
Адолжно быть:
№ 000
1 100
2 110
3 010
4 011
5 111
6 101
7 001
8

[Stilet]

Адолжно быть:

А в консоли как? Переделано вроде верно.

[kolyaz]

В консоле :
№ 000
1 100
2 110
3 010
4 011
5 111
6 101
7 001
8

[Stilet]

Будь внимательнее:

        for k:=1 to n do begin
         write(B[k] );  write(F,B[k]);
        end;

[kolyaz]

Спасибо большое!