Найти ошибку в программе. Взгляните пожалуйста!!!!

type
data=record
ch: 1..31;
mes: 1..12;
end;
 
var d1, d2:data;
k:byte;
 
 
begin
writeln('vvedite pervij mesjac ');
readln(d1.mes);
writeln('vvedite daty');
readln(d1.ch);
 
writeln('vvedite vtoroj mesjac');
readln(d2.mes);
writeln('vvedite daty');
readln(d2.ch);
 
if d1.mes=d2.mes then
if d1.ch=d2.ch then writeln('dati odinakovie')
else if d1.ch<d2.ch then
begin
k:=d2.ch-d1.ch;
writeln('pervaja data predshestvyet vtoroj na',k );
end
else writeln('ne predshestvyet')
else if d1.mes<d2.mes then
begin
k:=31-d1.ch;
d1.mes:=d1.mes+1;
while d1.mes<>d2.mes do
begin
k:=k+31;
d1.mes:=d1.mes+1;
end;
k:=k+d2.ch;
writeln('pervaja data predshestvyet vtoroj na ' , k,' dney' );
end
else writeln('ne predshestvyet');
end.

type
  data=record
       ch: 1..31;
       mes: 1..12;
  end;
 
var 
  d1, d2:data;
  k1:byte;
  k2:byte;
begin
  write('введите первый месяц ');
  readln(d1.mes);
  write('введите дату ');
  readln(d1.ch);
  write('введите второй месяц ');
  readln(d2.mes);
  write('введите дату ');
  readln(d2.ch);
  if (d1.mes=d2.mes)and(d1.ch=d2.ch) then
  writeln('даты одинаковые');
  if (d1.ch or d1.mes)<(d2.ch or d2.mes) then begin
    k1:=d2.ch-d1.ch;
    k2:=d2.mes-d1.mes;
    writeln('первая дата предшествует второй на ',k2,' месяцев и ',k1,' дней');
  end;
  if (d1.mes or d1.ch)>(d2.mes or d2.ch) then begin
    k1:=d1.ch-d2.ch;
    k2:=d1.mes-d2.mes;
    writeln('вторая дата предшествует первой на ',k2,' месяцев и ',k1,' дней');
  end;
  readln;
end.