Алгоритм на строки

{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const
    nmax = 100;
type
    list = record
    name: string;
    login: string;
    escape: string;
    end;
 
var
    n, m, num, num1, i, j, res: integer;
    q: boolean;
    s, res_str, nameIN, timeX: string;
    mas: array[1..nmax] of list;
    check:array[1..nmax] of string;
 
begin
    readln(n, m);
    num := 1;
    q := False;
    res := 0;
    for i := 1 to n do
        begin
            readln(s);
            timeX := copy(s, 1, 8);
            nameIN := copy(s, 10, length(s) - 9);
            for j := num downto 1 do
                begin
                        if (mas[j].name = nameIN) and (mas[j].escape <> '') then
                        begin
                            q := False;
                            break;
                        end;
                        if mas[j].name = nameIN then
                        begin
                            q := True;
                            break;
                        end;
                end;
            if q = False then
                mas[num].name := nameIN;
            if q = False then
                mas[num].login := timeX
            else
                mas[j].escape := timeX;
            if q = False then
                inc(num);
            q := False;
        end;
    dec(num);
    for i := 1 to num do
        if mas[i].escape = '' then
            mas[i].escape := '99:00:00';
    num1 := 1;
    for i := 1 to m do
        begin
                readln(timeX);
            check[num1] := timeX;
                for j:=1 to num do
                    if (check[num1] <= mas[j].escape) and (check[num1] >= mas[j].login) and (pos(mas[j].name + ' ', res_str) = 0) then
                    begin
                        inc(res);
                        res_str := res_str + mas[j].name + ' ';
                    end;
            writeln(res, ' ', res_str);
                res := 0;
                res_str := '';
                inc(num1);
        end;
end.