Написать программу на паскале
Известно расписание поездов проходящих через станцию:
-Номер поезда
-назначание(например, Москва-Омск)
-часы и минуты прибытия на станцию
-часы и минуты отправления со станции.
Поезда приходят каждый день. По данному времени определить какие поезда(номера и назначения) стоят в этот момент на станции.

Var h,m,t:integer;

begin
write(Введите время(ч,м): ); read(h,m);
t:=h*60+m;

writeln(В данный момент на станции стоят следующие поезда: );
if (tgt;=540) and (tlt;590) then writeln(Номер 1, Красноярск- Москва );
if (tgt;=570) and (tlt;620) then writeln(Номер 2, Новгород - Москва );
if (tgt;=610) and (tlt;670) then writeln(Номер 3, С.-Петербург - Калининград );
if (tgt;=660) and (tlt;720) then writeln(Номер 4, Владивосток - Москва );
if (tgt;=720) and (tlt;750) then writeln(Номер 5, Москва - Омск );
if (tgt;=755) and (tlt;795) then writeln(Номер 6, Томск — Москва );
if (tgt;=780) and (tlt;830) then writeln(Номер 7, Москва — Екатеринбург );
if (tgt;=820) and (tlt;860) then writeln(Номер 8, Москва — Самара );
if (tgt;=845) and (tlt;910) then writeln(Номер 9, С.-Петербург — Москва );
if (tgt;=890) and (tlt;950) then writeln(Номер 10, Москва — Красноярск );
if (tgt;=940) and (tlt;990) then writeln(Номер 11, Москва — Владивосток );
if (tgt;=980) and (tlt;1025) then writeln(Номер 12, Омск-Москва );
if (tgt;=1020) and (tlt;1085) then writeln(Номер 13, Москва — С.-Петербург );
if (tgt;=1080) and (tlt;1140) then writeln(Номер 14, Екатеринбург — Москва );
 end.