program KillDashNine;

uses CRT;

const
     MAX = 50;
var
   asArray: array[1..MAX] of string;
   iCountArray: integer;





procedure LoadFile(sFileName: string);
var
   i: integer;
   FHFile: text;
begin
     i := 0;

     assign(FHFile, sFilename);
     reset(FHFile);
     while(not(eof(FHFile))) do
     begin
          i := i + 1;
          readln(FHFile, asArray[i]);
     end;
     close(FHFile);

     iCountArray := i;

end;

var m, n, z, k, w: integer;
var sTemp1, sTemp2: string;
var FHFile: text;

begin
     assign(FHFile, 'OUT2.txt');
     rewrite(FHFile);

     clrscr;
     LoadFile('DATA2.txt');

         for n:= 0 to 4 do
           begin
             if ((n*6) + 1) > iCountArray then
               halt;
             sTemp1 := Copy(AsArray[(n*6) + 1], 7, 7);

             Val (sTemp1, k, m);

             for z:= 0 to 10 do
               begin
                 if ((n*6) + 2 + k + z) = (((n+1)*6) + 1) then
                   break;
                 w:= Pos (' ', AsArray[(n*6) + 2 + k + z]);
                 sTemp2:= Copy(AsArray[(n*6) + 2 + k + z], 1, w);
                 writeln(FHFile, sTemp2);
               end;
           end;
  close(FHFile);
end.