помогите не пашет алгоритм по вычеслению прожитых дней... Опции

[prevedmuraved]

не пойму чё ей не хватает...

program pr;
 uses crt,dos;
 var dn,an,ln:word;
 procedure days;
 var f:text;
      a:array[1..28,1..12] of integer;
      i,j:integer;
      ac,lc,dc,zc:word;
 begin
 getdate(ac,lc,dc,zc);
 assign(f,'D:\pascal\TP\BIN\exem\tebel1.txt');
 reset(f);
 for i:=1 to 28 do begin
  for j:=1 to 12 do begin
  read(f,a[i,j]);
  end;
  readln(f);
  end;
  close(f);

 end;
  begin
  writeln('dati data dvs de nastere ( dd ll aaa/EXEMPLU:  05 08 1999 )');
 readln(dn,ln,an);
 end.

М

Небольшие программы лучше все же помещать в текст мессаджа (с тегами code=pas), а не прикреплять файлом Lapp

[prevedmuraved]

извините не тот фаил закачал.....

program pr;  
uses crt,dos; 
var an,dn,ln:integer;
	   anulc,datac,lunac,k:word; 
function cluna(mm:word):integer;
 var dk:word; 
begin 
case mm of 
1 : cluna:=31;
 2 : cluna:=28; 
3 : cluna:=31;
 4 : cluna:=30;
 5 : cluna:=31;
 6 : cluna:=30; 
7 : cluna:=31; 
8 : cluna:=31;
 9 : cluna:=30;
 10 : cluna:=31; 
11 : cluna:=30;
 12 : cluna:=31; 
end; end; 
function days(dd,ll,aa:integer):integer; 
var at,abc,sdays,i:integer; 
begin
 getdate(anulc,lunac,datac,k);
 writeln('sevodnia-----------',datac,'	',lunac,'	',anulc); 
if aa mod 4=0 then abc:=1  else abc:=0; 
if (anulc mod 4=0)and(lunac>=3) then abc:=abc+1; 
if anulc=aa then begin	   
		   for i:=ll to lunac-1 do 
				 sdays:=sdays+cluna(i);
				  sdays:=sdays-dd+datac; 
				   writeln(sdays,'-*-*-'); 
				 end 
else begin 
	   at:=anulc-aa-1; 
	   sdays:=sdays+at*365;  
	  for i:=ll to lunac-1 do	
	sdays:=sdays+cluna(i);  
	  sdays:=sdays-dd+datac; 
writeln(sdays,'*-*-*-*');   
	 end; 
sdays:=sdays+abc;
 end; 
begin clrscr; 
writeln('(dd ll aaaa)'); 
readln(dn,ln,an);
 writeln(days(dn,ln,an));
 readkey; 
end.