Структуры: Вывести информацию о рейсах, которыми можно воспользоваться для прибытия в пункт назначения раньше заданного времени

uses crt;
const n=3;
 
type avtoban = record
     nom: byte;
     typ: string[15];
     naz: string[15];
     toc: byte;
     tom: byte;
     tpc: byte;
     tpm: byte;
     end;
 
var a:array [1..n] of avtoban;
    i,tzc,tzm,r: byte;
    nnn: string[15];
 
begin
writeln('Введите данные об автобусах: ');
for i:=1 to n do
    with a[i] do
         begin
         write('Номер рейса: '); readln(nom);
         writeln('Тип автобуса: ');
         writeln('1 - мягкий, 2 - полумягкий, 3 - пригородный ');
         repeat
         readln(r);
         until r in [1..3];
         case r of
         1: typ:='мягкий';
         2: typ:='полумягкий';
         3: typ:='пригородный';
         end;
         write('Пункт назначения: '); readln(naz);
         repeat
         writeln('Время отправления в строку через пробел (часы минуты): ');
         read(toc); read(tom);
         until (toc<24) and (tom<60);
         repeat
         writeln('Время прибытия в строку через пробел (часы минуты): ');
         read(tpc); read(tpm);
         until (tpc<24) and (tpm<60);
         end;
clrscr;
write('Задайте пункт назначения для поиска: '); readln(nnn);
repeat
writeln('Задайте ограничение по времени прибытия ');
writeln('часы минуты в строку через пробел ');
read(tzc); read(tzm);
until (tzc<24) and (tzm<60);
 
r:=0;
for i:=1 to n do
    with a[i] do
         if naz=nnn then
         begin
         if (tpc<tzc) or
            ((tpc=tzc) and (tpm<tzm)) then
            begin
            inc(r);
            if r=1 then writeln('В ',nnn,' раньше ',tzc,':',tzm,' прибывают:');
            writeln(nom:2,typ:16,', отправление ',toc,':',tom,', прибытие ',tpc,':',tpm);
            end;
         end;
if r=0 then writeln('нет подходящих рейсов');
end.