Algorithm 根据出发日期和持续时间计算到达日期

我正试图编制一个程序，计算a到b的列车何时到达。
我有时间坐火车离开，还有从a到b的路程。
我需要一个算法来帮助我确定那列火车是否能绕行24小时。
就像我得到的这些时间：火车20:55发车，火车乘车时间-11:40。
结果应该是8:35，但我怎么能得到呢

 program troleibusai;
 var xxx:integer ;
 f,g:text ;
 a:real;
 Begin
 Assign(F,'train_times'); 
 Reset(F);
 Assign(G,'results.txt');
 Rewrite(G);
 Read(F,left_hour);
 Read(F,left_minute);
 Read(F,ride_hour);
 Read(F,ride_minute);

---

这是代码。

看看unit dateutils中的函数之间的关系

---

e、 g.

计算

左小时*60+左分钟+骑乘小时*60+骑乘分钟

---

并获得

div60

和

mod60

[code]程序troleibusai；变量xxx：整数；f、 g：文本；a:真的；开始分配（F，“列车时间”）；重置（F）；赋值（G，'results.txt'）；重写（G）；读数（F，左/右小时）；读数（F，左半分钟）；读数（F，行车小时）；读数（F，行驶时间/分钟）；[/code]您确定只需要一个算法还是程序？如果这是您需要的代码帮助，那么您应该说明您的Pascal版本。在注释中显示你的代码不是一件理想的事情。请编辑您的问题，并在其中插入代码。是的，这是免费的帕斯卡。顺便问一下，我如何添加代码？@RimantasRadžiūnas编辑您的问题并在其中包含代码。