Reikia nedidelės pagalbos su Pascal.

Sveiki, turiu sukūręs nedidelę Pascal programėlę:

program Bevardë1;
 var a, b, c, d, v, m : integer;
                   Fd : text;
begin
 Assign(Fd, 'Duomenys.txt');
 Reset(Fd);
 Read(Fd, a, b, c, d);
 Close(Fd);
 v := a + c;
 m := b + d;
 if m >= 60
   then
     begin
     m := m - 60;
     v := v + 1;
     end;
 if v >= 24
  then
    begin
    v := v - 24;
    end;
 WriteLn('Traukinys atvyks: ', v, 'h ' , m, 'm');
 Readln;
end.

Užduotis:

Traukinys Varšuva-Budapeštas išvyko iš Varšuvos, kai buvo a valandų ir b minučių. Kelionės į Budapeštą

trukmė yra c valandų ir d minučių. Parenkite programą, kuri apskaičiuotų, kiek bus valandų v ir minučių m,

kai traukinys atvyks į Budapeštą (traukinys į Budapeštą gali atvykti nebūtinai tą pačią parą).

Pradinių duomenų faile Duomenys.txt nurodytas traukinio išvykimo laikas (valandos ir minutės) bei kelionės

trukmė valandomis ir minutėmis.

Duomenys.txt faile:

10 00 48 00

Tai vat žinau, kad nevisiškai teisingai padariau, nes rezultate man atvaizduoja ne 10h 00min., o 34h 0min. (Tikiu, kad su IF kažkaip galima, bet nesu tikras kaip tai padaryt) ir manau, kad kažkaip buvo galima paprasčiau parašyt tą kodą, todėl prašau jūsų pagalbos, jeigu galėtumėt, kad pataisytumėt ar patartumėt kaip pataisyt šį kodą :). Ačiū iš anksto ir su Šv. Kalėdom! :)

jeigu valandų daugiau nei 24, tai tada suk while ciklą, ir kol valandų daugiau nei 24, tol atėminėk po 24.

tingiu kodą taisyt, bet manau tą while'ą pats pasirašysi.

Gerų Kalėdų. :)