Найти количество дней между 2 датами

program date;
uses crt;
var d1,m1,m1t,l1,d2,m2,m2t,l2,m1tx,aa,ax,ac,ba,sum,pro,i,year,year1,year2: integer;
{все должно работать}
function bsYear(n: Word): Boolean;
begin
bsYear := ((n mod 4) = 0) and not (((n mod 100) = 0) and ((n mod 400) <> 0));
end;
 
begin
  writeln('Пишите месяц числами');
  
  writeln('Начальная дата');
  writeln('');
  write('День1: ');
  read(d1);
  
  write('Месяц1: ');
  read(m1);
 
  write('Год1: ');
  read(year1);
 
  writeln('');
  writeln('Конечная дата');
  writeln('');
  write('День2: ');
  read(d2);
  
  write('Месяц2: ');
  read(m2);
  
  write('Год2: ');
  read(year2);
  for i:=year1 to year2 do
    begin
      if bsYear(i) then
        year:=366
      else
        year:=365;
      sum:=sum+year;
    end;
  
 
 
 
 
 
 
 
 
 
 
if year1 mod 4 <>0
then 
begin
writeln('год1- невисокосный');
l1:=0;
end
else
if year1 mod 100 <> 0
then
begin
writeln('год1-високосный');
l1:=1
end
else
if year1 mod 400 <>0
then 
begin
writeln ('год1-не високосный');
l1:=0
end
else 
begin writeln ('год1-високосный') ;
l1:=1 
end;
 
 
 
 
 
 
if year2 mod 4 <>0
then 
begin
writeln('год2-не високосный');
l2:=0;
end
else
if year2 mod 100 <> 0
then
begin
writeln('год2-високосный');
l2:=1
end
else
if year2 mod 400 <>0
then 
begin
writeln ('год2-не високосный');
l2:=0
end
else 
begin 
writeln ('год2-високосный') ;
l2:=1 end;
 
 
if (m1 = 10) or (m1 = 3) or (m1 = 5) or (m1 = 7) or (m1 = 8) or (m1 = 10) or (m1 = 12)
then   
m1t:=31
else
if (m1 = 2) and (l1=1)
then
m1t:=29
else
if (m1 = 2) and (l1=0)
then
m1t:=28
else
m1t:=30;
writeln('в месяц1 ',year1,' года всего ',m1t,' дня');
 
 
 
 
 
 
if (m2 = 10) or (m2 = 3) or (m2 = 5) or (m2 = 7) or (m2 = 8) or (m2 = 10) or (m2 = 12)
then   
m2t:=31
 
else
if (m2 = 2) and (l2=1)
then
m2t:=29
else
if (m2 = 2) and (l2=0)
then
m2t:=28
else
m2t:=30;
writeln('в месяц2 ',year2,' года ',m2t,' дня');
 
m1tx:=m1t-d1;
aa:=12-m1;
 
{aa - кол-во месяцев остоалось от  month1 до НГ, если она равна 0, то это декабрь}
{m1tx - кол-во дней от day1 до конца месяца}
{ax - кол-во дней осталось от конца месяца до НГ}
if aa=0
then
ax:=0
else
 
if aa=1
then
ax:=31
 
else
if aa=2
then
ax:=61
else
 
if aa=3
then
ax:=92
else
 
if aa=4
then
ax:=122
else
 
if aa=5
then
ax:=153
else
 
if aa=6
then
ax:=184
else
 
if aa=7
then
ax:=214
else
 
if aa=8
then
ax:=245
else
 
if aa=9
then
ax:=275
else
 
if aa=10
then
ax:=306
else
 
if aa=11
then
if
l1=1
then
ax:=335
else
ax:=334
else;
{ac - кол-во дней до НГ}
ac:=ax+m1tx;
 
 
{
ba - кол-во дней прошло от НГ}
 
if l1=1
then
 
if m2=1
then
ba:=0
else
if m2=2
then
ba:=31
else
 
if m2=3
then
ba:=60
else
 
if m2=4
then
ba:=91
else
 
if m2=5
then
ba:=121
else
 
if m2=6
then
ba:=152
else
 
if m2=7
then
ba:=182
else
 
if m2=8
then
ba:=213
else
 
if m2=9
then
ba:=244
else
 
if m2=10
then
ba:=274
else
 
if m2=11
then
ba:=305
else
ba:=335
 
else
{нормальный год}
 
if m2=1
then
ba:=0
else
if m2=2
then
ba:=31
else
 
if m2=3
then
ba:=59
else
 
if m2=4
then
ba:=90
else
 
if m2=5
then
ba:=120
else
 
if m2=6
then
ba:=151
else
 
if m2=7
then
ba:=181
else
 
if m2=8
then
ba:=212
else
 
if m2=9
then
ba:=243
else
 
if m2=10
then
ba:=274
else
 
if m2=11
then
ba:=304
else
ba:=334;
 
 
 
  pro:=sum+ba+ac;
  
  writeln(pro,' дней прошло между двумя датами');
 
 
end.