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

[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]

всё можно закрывать тему...
пасиба за помощь...

Код

{$N+}
program pr;
uses crt,dos;
var dn,ln,an:word;
ac,lc,dc,zc:word;
sec:longint;
function cl(luna:word):integer;
begin
case luna of
1 : cl:=31;
2 : cl:=28;
3 : cl:=31;
4 : cl:=30;
5 : cl:=31;
6 : cl:=30;
7 : cl:=31;
8 : cl:=31;
9 : cl:=30;
10 : cl:=31;
11 : cl:=30;
12 : cl:=31;
end;
end;

function days(dd,ll,aa:word):integer;
var  i,dsc:integer;
begin

        dsc:=0;
if ln>lc then begin
                 for i:=1 to lc-1 do
                 dsc:=dsc+cl(i);
                 for i:=ln to 12 do
                 dsc:=dsc+cl(i);
                 end

else if ln<lc then begin
                 for i:=ln to lc-1 do
                 dsc:=dsc+cl(i);
                 end;
days:=(dsc-dn+dc)+((ac-aa-1)*365)+((ac-aa)div 4);
end;
begin
clrscr;
   getdate(ac,lc,dc,zc);
  writeln('segodnea ',dc:5,lc:5,ac:11);
writeln('dd mm gggg ');
readln(dn,ln,an);
sec:=days(dn,ln,an)*3660;
writeln('you are :');
writeln(days(dn,ln,an),     ' days old');
writeln(days(dn,ln,an)*24,' hours old ');
writeln(days(dn,ln,an)*1440,' min old ');
writeln(sec,' sec old ');

end.