Программа выводит каждый элемент цикла в двоичной системе счисления

Program F;
uses crt;
var b:array[1..255] of byte;
    i,n,s,k:byte;
Begin
clrscr;
For s:=1 To 10 Do
 begin
  k:=s; //не нужно издеваться над счетчиком цикла...
  n:=0;
  While k>0 Do
   begin
    n:=n+1;
    b[n]:=k mod 2;
    k:=k div 2;
   end;
  For i:=n Downto 1 Do
  Write(b[i]);
  writeln;
 end;
readln
End.

 For i:=n+2 Downto 1 Do
  Write(b[i]);

For i:=5 Downto 1 Do
  Write(b[i]);

Program F;
uses crt;
var b:array[1..255] of byte;
    i,n,s,k,ed,j:byte;
Begin
clrscr;
For s:=1 To 10 Do
 begin
  k:=s;
  n:=0;
  ed:=0;
  While k>0 Do
   begin
    n:=n+1;
    b[n]:=k mod 2;
    if b[n]=1 then ed:=ed+1;
    k:=k div 2;
   end;
  if odd(ed) then
   begin
    n:=n+1;
    for j:=n downto 2 do
    b[j]:=b[j-1];
    b[1]:=1;
   end;
  if n<5 then
  for j:=n+1 to 5 do
  b[j]:=0;
  For j:=5 Downto 1 Do
  Write(b[j]);
  writeln;
 end;
readln
End.

Program F;
uses crt;
var b:array[1..255] of byte;
    i,n,s,k,ed,j:byte;
Begin
clrscr;
For s:=1 To 10 Do
 begin
  k:=s;
  n:=0;
  ed:=0;
  While k>0 Do
   begin
    n:=n+1;
    b[n]:=k mod 2;
    if b[n]=1 then ed:=ed+1;
    k:=k div 2;
   end;
  n:=n+1;
  if odd(ed) then  //1 в начало(пока в конец)
   begin
    for j:=n downto 2 do
    b[j]:=b[j-1];
    b[1]:=1;
   end
  else  //0 в конец(пока в начало)
   begin
    for j:=1 to n-1 do
    b[j]:=b[j+1];
    b[n]:=0;
   end;
  if n<6 then
  for j:=n+1 to 6 do
  b[j]:=0;
  For j:=6 Downto 1 Do
  Write(b[j]);
  writeln;
 end;
readln
End.

Program FF;
uses crt;
const n=27;
{коды прописных английских и пробела}
const alf:array[1..n] of byte=(65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,
                       88,89,90,32);
var ik,zk:array [1..n] of string;{если хотим не просто вывести, а сохранить, лучше массивы строк}
    i,m,k,ed,j:byte;
    f:text;
Begin
clrscr;
assign(f,'cody.txt');
rewrite(f);
writeln(f,'-----------------------------');
writeln(f,'| Simvol|   7byt  |   8byt   |');
writeln(f,'-----------------------------');
For i:=1 To n Do
 begin
  {составляем исходные 7-битовые коды}
  k:=alf[i];
  ik[i]:='';
  ed:=0;
  While k>0 Do
   begin
    ik[i]:=ik[i]+chr(k mod 2+48);
    if k mod 2=1 then ed:=ed+1;
    k:=k div 2;
   end;
  while length(ik[i])<7 do
  ik[i]:='0'+ik[i];{добавляем ноли в начало
                    это только для пробела, остальные и так по 7 символов}
  if i=n then write(f,'| spase |'){выводим в файл, на экран не войдет}
  else write(f,'|',chr(alf[i]):4,'   |');
  write(f,ik[i]:8,' |');
 {составляем зашищенные 8-битовые коды}
  zk[i]:=ik[i];
  if odd(ed) then zk[i]:=zk[i]+'1' {1 в конец)}
  else zk[i]:=zk[i]+'0'; {0 в конец}
  writeln(f,zk[i]:9,' |');
 end;
close(f);
readln
End.