C4 демо ЕГЭ-2013 с ФИПИ

Программа зависает работает при вводе данных пассажира, если время сдачи больше времени возврата в какой-нибудь ячейке. Формат ввода данных:
Фамилия_01:00_02:00 (Фамилия, время сдачи багажа, время возврата багажа через "пробел").

var s,s1,s2,s3:string;
    c:char;
    i,j,n,k,i1,i2:integer;
    a:array [1..1000] of integer;

begin
    readln(n); {кол-во пассажиров}
    readln(k); {кол-во ячеек}
    for i:=1 to n do
    begin
      readln(s);
      s1:= Copy(s,1,length(s)-12);
      i1:= StrToInt(copy (s,length(s)-10,2))*60+ StrToInt(copy (s,length(s)-7,2));
      i2:= StrToInt(copy (s,length(s)-4,2))*60+ StrToInt(copy (s,length(s)-1,2));
      j:=1;
      while (a[j]>i1) and (j<=k) do begin j:= j+1; end;
      if (j<=k) then begin a[j]:=i2; writeln (s1,' ',j); end;
    end;
end.