pascal uzduotis

Štai užduotis:

Joniukas spalio 12 dieną 11:30 nusipirko snowboardą ir ėmė laukti sniego. Snigti pradėjo sausio 25 dieną 9:14. Kiek minučių Joniukas laukė sniego?

Reikia kad duomenis skaitytų iš duomenys.txt failo ir atsakymą parašytų rezultatas.txt faile.

type date = record
		  metai, menuo, diena : word;
		end;
// skirtumas tarp dvieju datu
 function keliamieji (metai : integer) : boolean;
 begin
keliamieji := (metai mod 400 = 0) or (metai mod 100 <> 0) and (metai mod 4 = 0);
 end;
// menesio dienu skaicius
 function dienu_skaicius (data : date) : integer;
 begin
if (data.menuo = 4) or (data.menuo = 6) or (data.menuo = 9) or (data.menuo = 11)
  then dienu_skaicius := 30
  else
	if data.menuo = 2
	  then
		if keliamieji(data.metai)
		  then dienu_skaicius := 29
		  else dienu_skaicius := 28
	  else dienu_skaicius := 31;
 end;
// skirtumas tarp datu
 function diff (a, b : date) : integer;

function metu () : integer;
  var m : integer;
begin
  metu := 0;
  for m := a.metai to b.metai-1 do
	if keliamieji(m) then
	  metu += 366
	else
	  metu += 365;
end;

function dienu (c : date) : integer;
  var m : integer;
	  temp : date;
begin
  dienu := 0;
  for m := 1 to c.menuo-1 do
	begin
	  temp := c;
	  temp.metai += m;
	  dienu += dienu_skaicius (temp);
	end;
  dienu += c.diena;
end;

 begin
diff := metu () - dienu (a) + dienu (b);
 end;

va iš neseniai rašytos programos ištraukiau. Čia tik dienų tikslumu randa, na jau valandas ir minutes mokėsi prisidėti, viskas dar papraščiau.

dekui tau :)