Сравнение дат

uses crt;
type date=record
          gd:integer;
          ms:byte;
          dn:byte;
          end;
function Menshe(dt1,dt2:date):boolean;
begin
Menshe:=(dt1.gd<dt2.gd)or((dt1.gd=dt2.gd)and(dt1.ms<dt2.ms))
      or((dt1.gd=dt2.gd)and(dt1.ms=dt2.ms)and(dt1.dn<dt2.dn));
end;
procedure Vvod(var dt:date;n:byte);
var k:byte;
begin
writeln('Введите дату ',n);
repeat
  write(' Год (1000-2011):');
  readln(dt.gd);
until (dt.gd>=1000)and(dt.gd<=2011);
repeat
  write('  Месяц (1-12): ');
  readln(dt.ms);
until dt.ms in [1..12];
repeat
  k:=0;
  write('  День: ');readln(dt.dn);
  if ((dt.ms in [1,3,5,7,8,10,12])and not(dt.dn in [1..31]))
  or ((dt.ms in [4,6,9,11])and not(dt.dn in [1..30]))
  or ((dt.ms=2)and(dt.gd mod 4=0)and not(dt.dn in [1..29]))
  or ((dt.ms=2)and(dt.gd mod 4<>0)and not(dt.dn in [1..28]))then k:=1;
until k=0;
clrscr;
end;
procedure Vyvod(var dt:date);
begin
if dt.dn<10 then write('0',dt.dn,'.')else write(dt.dn,'.');
if dt.ms<10 then write('0',dt.ms,'.')else write(dt.ms,'.');
write(dt.gd);
writeln;
end;
 
var d1,d2:date;
    n,i,j,im,k:byte;
begin
clrscr;
Vvod(d1,1);
Vvod(d2,2);
write('Первая дата: ');
Vyvod(d1);
write('Вторая дата: ');
Vyvod(d2);
if Menshe(d1,d2)then write('Первая дата раньше')
else write ('Первая дата не раньше');
readln
end.