program p1;
var i, start, finish, n, k: integer;
rooms: array [1..1000] of integer;
s, startTime, stopTime, name, surname: String;
c: char;
begin

readln(n);
readln(k);
for i:= 1 to n:
begin
  surname := '';
  startTime := '';
  stopTime := '';

  //записываем фамилию
  repeat
  read(c);
  surname:= surname + c;
  until c = ' ';

  //записываем время
  repeat
  read(c);
  startTime:= startTime + c;
  until c = ' ';

  for i:=1 to 5 do
  begin
    read(c);
    stopTime := stopTime + c;
  end;

  start := StrToInt(Copy(startTime, 1, 2) + Copy(startTime, 4, 2));
  finish := StrToInt(Copy(stopTime, 1, 2) + Copy(stopTime, 4, 2));

  for i:= 1 to n do
  begin
    if (rooms[i] <= start) then
    begin
      writeln(surname, ' ', i);
      rooms[i] := finish;
      break;
    end;
  end;
end;
end.