Всем привет!

Написан Код Грея в консольном приложении Дэлфи. Программа работает нормально, но как заменить полученные 0 и 1, например, на @ и *?
Сам код:
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
n,P,i,j,m:integer;
B:array[0..100] of byte;

begin
writeln('Insert n please');
readln(n);
repeat
for m:=1 to 7 do
write(B[m]);
writeln;
i:=i+1;
p:=1;
j:=i;

while j mod 2=0 do
begin
j:=j div 2;
P:=P+1;

end;
if P<=n then B[P]:=1-B[P];

until P>n;

readln;
end.

Вводимое значение n равно не больше 7
Спасибо!

cosmetolog

case переменная of
0: writeln('@');
1: writeln('*');
end;

либо через if...

у меня только в самом конце вставляет символ @, а 0 и 1 так и остались

попробуйте так:
writeln ('@',0);
writeln ('*',1);

repeat
for m:=1 to 7 do
//write(B[m]);
case B[m] of
0: writeln('@');
1: writeln('*');
end;
i:=i+1;
p:=1;
j:=i;

while j mod 2=0 do
begin
j:=j div 2;
P:=P+1;

end;
if P<=n then B[P]:=1-B[P];

until P>n;

выводится на экран @0 и *1

Добавлено спустя 1 минуту 1 секунду:

на экран выводится 1 столбец с @ или *

cosmetolog
Так что вам именно надо?

Мне нужно, чтобы полученный результат с 0 и 1 поменялся на @ и *, например получились строки:
0000000
1000000
1100000
0000100
Нужно, чтобы это выглядело так:
@@@@@@@
*@@@@@@
**@@@@@
@@@@*@@

Добавлено спустя 10 минут 34 секунды:
Всё, сделал! Спасибо всем!

writeln на write меняй.