Program FileConvert;


uses crt, Graph;

var
  inputfile: text;
  outputfile: text;
  fullrecord, frase : string;

  totaltags, i : integer;

begin
  clrscr;
  totaltags:=0;
  writeln('The INPUT file name is   TAG.in');
  writeln('The OUTPUT file is   TAG.OUT');
  writeln;
  Assign(inputfile, 'tag.in');
  reset(inputfile);
  Assign(outputfile, 'tag.out');
  rewrite(outputfile);

  while not eof(inputfile) do
  begin
    inc (totaltags);
    Readln(inputfile,fullrecord);

    i:=0;
    frase := (Copy(fullrecord, 20, 30));
    for i := 1 to 30 do
    begin
      i:=i+1;
      if ((frase[i] =' ') and (frase[i+1] =' ')) then delete(frase,i,1);
    end;
    write(outputfile,frase); write(frase);


    i:=0;
    frase := (Copy(fullrecord, 190, 5));
    for i := 0 to 5 do
    begin
      i:=i+1;
      if ((frase[i] =' ') and (frase[i+1] =' ')) then delete(frase,i,2);
    end;
    write(outputfile,',',frase); write(',',frase);



    i:=0;
    frase := (Copy(fullrecord, 80, 30));
    for i := 1 to 30 do
    begin
      i:=i+1;
      if ((frase[i] =' ') and (frase[i+1] =' ')) then delete(frase,i,2);
    end;
    write(outputfile,',',frase); write(',',frase);

    i:=0;
    frase := (Copy(fullrecord, 190, 10));
    for i := 1 to 10 do
    begin
      i:=i+1;
      if ((frase[i] =' ') and (frase[i+1] =' ')) then delete(frase,i,2);
    end;
    write(outputfile,',',frase); write(',',frase);




    i:=0;
    frase := (Copy(fullrecord, 130, 30));
    for i := 1 to 30 do
    begin
      i:=i+1;
      if ((frase[i] =' ') and (frase[i+1] =' ')) then delete(frase,i,2);
    end;
    writeln(outputfile,',',frase); writeln(',',frase);

    


  end;
  close(inputfile);
  close(outputfile);
writeln;
writeln;
writeln;
writeln('The proccess was completed       ',totaltags,' trays ');
writeln;
writeln;
writeln('Hit ENTER to CONTINUE');
readln;
end.