Переменную на выводе поменять на символ. delphi

[leshij]

Всем привет! Оч нужна помощь.
Есть программа, которая генерирует цыфры 0 и 1. Нужно что бы заместо 1 на выводе уже писало символ доллара '$'. Как это сделать?

program Project1_5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure gray(n: integer);
var
 b: array [1..5] of integer;
 i,j,p,l: integer;

begin
  for i:=1 to n do
  begin
    B[i]:= 0;
  end;
  i:=0;
  repeat
    for l:=1 to n do
    write(B[l]);  writeln(' ');
    i:=i+1;
    p:=1;
    j:=i;
    while j mod 2 = 0 do
    begin
      j:= j div 2;
      inc(p);
    end;
    if p<= n then B[p]:= 1-B[p];
  until p>n;
end;

var
  b:array [1..5] of integer;
  i,j,p: integer;
BEGIN
  gray(5);
  readln;

end.

вот так на выводе выглядит:

[Serge_Bliznykov]

если я правильно понял, то замените код

  repeat
    for l:=1 to n do
    write(B[l]);  writeln(' ');

на код:

  repeat
    for l:=1 to n do
       if B[l]=1 then write('$') else write(B[l]);  
    writeln(' ');

p.s. данные переменные (выделены цветом) нигде не исплользуются, рекомендую удалить эти строчки:

  until p>n;
end;

var
  b:array [1..5] of integer;
  i,j,p: integer;
BEGIN
  gray(5);
  readln;
end.

[leshij]

Serge_Bliznykov, спасибо громное!