program z14_23;
type rasp=record
n:byte;
s:string;
hp:byte;
mp:byte;
ho:byte;
mo:byte;
end;
var
f:text;
a:array[1..25] of rasp;
i,k,hk,mk:byte;
begin
assign(f,'output.txt');
rewrite(f);
write('введите количество поездов');
readln(k);
for i:= 1 to k do
with a[i] do
begin
write('введите номер поезда ');
readln(n);
write('введите назначение поезда ');
readln(s);
write('введите часы прибытия на станцию ');
readln(hp);
write('введите минуты прибытия на станцию ');
readln(mp);
write('введите часы отправления со станции ');
readln(ho);
write('введите минуты отправления со станции ');
readln(mo);
end;
write('введите время (часы,минуты) определения стоящих на станции поездов ');
readln(hk,mk);
for i:=1 to k do
if ((a[i].hp*100+a[i].mp)<(hk*100+mk)) and((hk*100+mk)<(a[i].ho*100+a[i].mo)) then begin
write(f,a[i].n);
writeln(f,a[i].s);
end;
close(f);
End.