program dzfb2;

{$APPTYPE CONSOLE}

uses   SysUtils;

type
rec=record
num:integer;
s:string[20];
from,ingo:tdatetime;
end;

var
f:textfile;
s:string[5];
ss:string;
c:char;
n:integer=0;
temp,number,num:integer;
timego,timefrom:TDateTime;
from,ingo:tdatetime;
a:array of rec;
city:string;
has:boolean;
begin
has:=false;
writeln('Enter city:'); readln(city);
writeln;
writeln('Enter time interval:');
writeln('from:');
readln(s); timefrom:=strtotime(s);
writeln('to:');
readln(s); timego:=strtotime(s);
writeln('Enter Number of train:'); readln(number);
writeln;

assignfile(f,'info.txt');
reset(f);
while not eof(f) do begin
setlength(a,n+1);
read(f,num);
read(f,c); read(f,s); from:=strtotime(s);
read(f,c); read(f,s); ingo:=strtotime(s);
read(f,temp);
read(f,c);
read(f,ss);

if num=number then writeln('Train ',num,' has ',temp,' tickets');

if not (ansilowercase(city)=ansilowercase(ss)) or not((from<timego) and (from>timefrom)) then continue;
inc(n);
writeln(n,'. The train to ',ss,' at ',timetostr(from));
//if temp=0 then writeln(' (No tickets)') else writeln(' (',temp,' tickets)');
has:=true;
end;

close(f);
writeln;
if not has then writeln('No other entries');
readln;
end.