куда правильно вставить цикл FOR???

[stas45rus]

Program UY;
Uses Crt;
Var b:array[1..255] of byte;
    ost,des,n,i,s,m,j:byte;
Begin
 ClrScr;
 for i:=65 to 90 do
  begin
  for s:=1 to 26 do
   begin
     des:=s;
     n:=0;
     while des>0 do
      begin
        n:=n+1;
        ost:=des mod 2;
        b[n]:=ost;
        des:=des div 2;
      end;
     for m:=n downto 1 do
      begin
        write(b[m],' ');
      end;
      write(' ');
    end;
    write(chr(i));
  end;
 readln;
End.

Подскажите пжл, куда вставить первый цикл FOR,чтобы после каждой буквы выводился двоичный код из массива write(bb[m],' ');???

[puporev]

Program UY;
Uses Crt;
Var b:array[1..255] of byte;
    ost,des,n,i,m:byte;
Begin
 ClrScr;
 for i:=65 to 90 do
  begin
  write(chr(i),' ');
  des:=i;
  n:=0;
  while des>0 do
   begin
    n:=n+1;
    ost:=des mod 2;
    b[n]:=ost;
    des:=des div 2;
   end;
  for m:=n downto 1 do
  write(b[m],' ');
  writeln;
 end;
readln;
End.

[stas45rus]

нужно, чтобы программа от 1 до 26 переводила в двоичный код, а не от 65 до 90

[puporev]

Да уж.... Напиши

 des:=i-64;