program splits;

Uses SysUtils;

var
  invoer : TextFile;

function vervang(S,deze,door : string) : string;
var
  i,L : integer;
  T : string;
begin
  T := S;
  while Pos(deze,T) > 0 do
  begin
    i := Pos(deze,T);
    L := length(deze);
    Delete(T,i,L);
    if Length(door) > 0 then
      Insert(door,T,i);
  end;
  vervang := T;
end;

procedure routine(naam : string; plaats : integer);
const
  tussen : string = ' Meta $5(Lyric) ';
var
  uit : TextFile;
  regel : string;
  getal,L : integer;
begin
  AssignFile(uit,naam);
  Rewrite(uit);
  Reset(invoer);
  getal := 0;
  while not EoF(invoer) do
  begin
    readln(invoer,regel);
    getal := getal + StrToInt(regel);
    Readln(invoer,regel);
    L := Length(regel)-plaats;
    if L < 0 then Continue;
    regel := Copy(regel,plaats+1,L);
    if Pos(' ',regel) > 0
    then L := Pos(' ',regel);
    SetLength(regel,L-1);
    if Pos('-',regel) = 0 then regel := regel+'_'; 
    regel := vervang(regel,'-','');
    if L > 1 then Writeln(uit,getal,tussen,regel);
  end;
  CloseFile(uit);
end;

procedure doen;
begin
  AssignFile(invoer,'track2.txt');
  routine('part1.txt',34);
  routine('part2.txt',48);
  routine('part3.txt',62);
  routine('part4.txt',76);
  CloseFile(invoer);
end;

begin
  doen;
end.