Написать программу которая вычисляет интервал, прошедший между двумя датами

uses crt;
{високосный год}
function Vis(c:word):boolean;
begin
Vis:=((c mod 100<>0)and(c mod 4=0))or(c mod 400=0);
end;
{кол. дней прошло в данном году}
function Dn_gd(a,b,c:word):word;
var k,k2:word;
begin
if Vis(c)then k2:=60 else k2:=59;
case b of
1:k:=a;
2:k:=31+a;
3:k:=k2+a;
4:k:=k2+31+a;
5:k:=k2+61+a;
6:k:=k2+92+a;
7:k:=k2+122+a;
8:k:=k2+153+a;
9:k:=k2+184+a;
10:k:=k2+214+a;
11:k:=k2+245+a;
12:k:=k2+275+a;
end;
Dn_gd:=k;
end;
{прошло дней между датами}
function Kol_dn(a1,b1,c1,a2,b2,c2:word):word;
var i,k:word;
begin
if c1=c2 then k:=Dn_gd(a2,b2,c2)-Dn_gd(a1,b1,c1)-1{если в одном году}
else {если до 1 января и после 1 января}
 begin
  if Vis(c1)then k:=366-Dn_gd(a1,b1,c1)+Dn_gd(a2,b2,c2)-1
  else k:=365-Dn_gd(a1,b1,c1)+Dn_gd(a2,b2,c2)-1
 end;
Kol_dn:=k;
end;
{проверка првильности ввода дат}
function Prov(a,b,c:word):boolean;
var k:byte;
begin
Prov:=true;
if(c<0){год отрицательный}
or not(b in [1..12]){или месяц не 1..12}
or((b in [4,6,9,11])and not(a in [1..30])){короткий месяц}
or((b in [1,3,5,7,8,10,12])and not(a in [1..31])){длинный месяц}
or((b=2)and Vis(c) and not(a in [1..29])){февраль високосный}
or((b=2)and not Vis(c) and not(a in [1..28])){февраль невисокосный}
then Prov:=false;
end;
var a1,b1,c1,a2,b2,c2,xa,xb,xc,pl:word;
begin
clrscr;
xc:=1;
xb:=1;
xa:=1;
repeat
writeln('Введите 2 даты в формате дд мм гггг вторая позднее:');
repeat
write(' дата 1 - '); {день пробел месяц пробел год}
readln(a1,b1,c1);
if not Prov(a1,b1,c1) then writeln('Ошибка, повторите ввод.');
until Prov(a1,b1,c1);
repeat
write(' дата 2 - ');
readln(a2,b2,c2);
if not Prov(a2,b2,c2) then writeln('Ошибка, повторите ввод.');
until Prov(a2,b2,c2);
if (c2<c1)or((c2=c1)and(Kol_dn(xa,xb,xc,a1,b1,c1)>Kol_dn(xa,xb,xc,a2,b2,c2))) then
writeln('Вторая дата меньше первой, повторите ввод.');
until (c2>c1)or((c2=c1)and(Kol_dn(xa,xb,xc,a1,b1,c1)<=Kol_dn(xa,xb,xc,a2,b2,c2)));
writeln('Между этими датами(исключая их) прошло ',Kol_dn(a1,b1,c1,a2,b2,c2),' дн.');
if (b2>b1)or((b2=b1)and(a2>=a1)) then pl:=c2-c1 else pl:=c2-c1-1;
readln
end.