Tp barra

program barra;
uses crt;

var
   final,codempresa,importe,auxi:string;
   aux,auxiliar:char;
   contador,contaux:integer;

begin
     writeln('Ingrese el codigo de la empresa');
     readln(codempresa);
     importe := '111';
     while importe <> 'x' do
     begin
           writeln('Ingrese importe, para salir ingrese x');
           readln(importe);
           final := concat(codempresa,importe);

           for contador:=0 to length(final) do
           begin
           aux := final[contador];
                case aux of
                '0':auxi:='0000';
                '1':auxi:='0001';
                '2':auxi:='0010';
                '3':auxi:='0011';
                '4':auxi:='0100';
                '5':auxi:='0101';
                '6':auxi:='0110';
                '7':auxi:='0111';
                '8':auxi:='1000';
                '9':auxi:='1001';
                end;
           for contaux:=0 to length(auxi)do
           begin
                textcolor(13);
                auxiliar := auxi[contaux];
                case auxiliar of
                '0': write('*');
                '1': write('|');
                end;
           end;
           end;
           writeln();
     end;
end.