Материалы и тесты для подготовки к ЕГЭ

На вход программе подаются сведения о пассажирах, желающих сдать свой багаж в камеру хранения на заранее известное время до полуночи. В первой строке сообщается число пассажиров N, которое не меньше 3, но не превосходит 1000; во второй строке – количество ячеек в камере хранения K, которое не меньше 10, но не превосходит 1000. 
Каждая из следующих N строк имеет следующий формат:

<Фамилия> <время сдачи багажа> <время освобождения ячейки>,

где <Фамилия> – строка, состоящая не более чем из 20 непробельных символов; 
<время сдачи багажа> – через двоеточие два целых числа, соответствующие часам (от 00 до 23 – ровно 2 символа) и минутам (от 00 до 59 – ровно 2 символа); 
<время освобождения ячейки> имеет тот же формат. 
<Фамилия>, <время сдачи багажа> и <время освобождения ячейки> разделены одним пробелом. 
Время освобождения больше времени сдачи. 
Сведения отсортированы в порядке времени сдачи багажа. Каждому из пассажиров в камере хранения выделяется свободная ячейка с минимальным номером. Если в момент сдачи багажа свободных ячеек нет, то пассажир уходит, не дожидаясь освобождения одной из них. 
Требуется написать программу (укажите используемую версию языка программирования, например Borland Pascal 7.0), которая будет выводить на экран для каждого пассажира номер ему предоставленной ячейки (можно сразу после ввода данных очередного пассажира). Если ячейка пассажиру не предоставлена, то его фамилия не печатается. 
Пример входных данных: 
3 
10 
Иванов 09:45 12:00 
Петров 10:00 11:00 
Сидоров 12:00 13:12 
Результат работы программы на этих входных данных: 
Иванов 1 
Петров 2 
Сидоров 1

Решение:

Чтобы прочесть комментарии к программе, наведите мышью на соответствующую строку. Строки, снабженные комментарием, выделены фиолетовым цветом.

var
  i,j,N,K,time1,time2: integer;
  p:array[1..1000] of integer;
  c,c1:char;
  name:string;
begin
  readln(N,K);
  for i:=1 to K do
     p[i]:=0;
  for i:=1 to N do
  begin
     name:='';
     repeat
        read(c);
        name:=name+c;
     until c=' ';
     read(c,c1);
     time1:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));
     read(c,c,c1);
     time1:=time1+(ord(c)-ord('0'))*10+ord(c1)-ord('0');
     read(c,c,c1);
     time2:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));
     readln(c,c,c1);
     time2:=time2+(ord(c)-ord('0'))*10+ord(c1)-ord('0');
     for j:=1 to K do
        if p[j]<=time1 then
        begin
           p[j]:=time2;
           writeln(name,j);
           break;
        end;
  end;
  readln
end.