Сформировать массив, содержащий информацию о поездах, отправляющихся с Ленинградского вокзала г. Москвы (номер поезда, станция назначения, время отпра

Type
  TTime = record
   Hour,Minute: Integer;
  end;
 
  TShedule = record
   Train: String;
   Departure,Arrival: String;
   DepTime,WayTime: TTime;
  end;
 
procedure SetShedule(var Shedule: TShedule; Train,Departure,Arrival: String; DH,DM,WH,WM: Integer);
begin
 Shedule.Train := Train;
 Shedule.Departure := Departure;
 Shedule.Arrival := Arrival;
 Shedule.DepTime.Hour := DH;
 Shedule.DepTime.Minute := DM;
 Shedule.WayTime.Hour := WH;
 Shedule.WayTime.Minute := WM;
end;
 
Const
  SheduleSize = 11;
Var
  Shedule: Array[1..SheduleSize] of TShedule;
  i: Integer;
begin
 SetShedule(Shedule[1],'020A','Москва','С-Петербург',0,23,8,7);
 SetShedule(Shedule[2],'016A','Москва','Мурманск',0,28,34,37);
 SetShedule(Shedule[3],'038A','Москва','С-Петербург',0,43,8,23);
 SetShedule(Shedule[4],'682А','Москва','Боровичи',20,45,7,8);
 SetShedule(Shedule[5],'028А','Москва','С-Петербург',21,30,7,55);
 SetShedule(Shedule[6],'052А','Москва','С-Петербург',21,52,7,38);
 SetShedule(Shedule[7],'032А','Москва','Хельсинки',22,50,12,28);
 SetShedule(Shedule[8],'032B','Москва','Хельсинки',21,50,12,28);
 SetShedule(Shedule[9],'026А','Москва','С-Петербург',23,0,7,40);
 SetShedule(Shedule[10],'006А','Москва','С-Петербург',23,30,7,35);
 SetShedule(Shedule[11],'002А','Москва','С-Петербург',23,55,8,00);
 
 for i := 1 to SheduleSize
 do if (Shedule[i].Arrival = 'С-Петербург') and (Shedule[i].DepTime.Hour in [21..23])
    then WriteLn('Поезд: ',Shedule[i].Train,' от станции ',Shedule[i].Departure,
                 ' до станции ',Shedule[i].Arrival,' отправляется в ',
                 Shedule[i].DepTime.Hour,':',Shedule[i].DepTime.Minute,
                 ' время в пути ',Shedule[i].WayTime.Hour,':',Shedule[i].WayTime.Minute);
 ReadLn;
end.