Дана информация о некоторых событиях. Составить программу упорядочивающую по датам

uses crt;
type date=record
          gd:1000..2010;
          ms:1..12;
          dn:1..31;
          end;
var m:array[1..100] of date;
    x:date;
    n,i,j,im,k:byte;
begin
clrscr;
write('Размер массива n=');
readln(n);
writeln('Введите ',n,' дат:');
for i:=1 to n do
 begin
  repeat
  write(' Год (1000-2010):');readln(m[i].gd);
  until (m[i].gd>=1000)and(m[i].gd<=2010);
  repeat
  write('  Месяц (1-12): ');readln(m[i].ms);
  until m[i].ms in [1..12];
  repeat
  k:=0;
  write('  День: ');readln(m[i].dn);
  if ((m[i].ms in [1,3,5,7,8,10,12])and not(m[i].dn in [1..31]))
  or ((m[i].ms in [4,6,9,11])and not(m[i].dn in [1..30]))
  or ((m[i].ms=2)and(m[i].gd mod 4=0)and not(m[i].dn in [1..29]))
  or ((m[i].ms=2)and(m[i].gd mod 4<>0)and not(m[i].dn in [1..28]))then k:=1;
  until k=0;
 end;
clrscr;
for i:=1 to n-1 do
for j:=i+1 to n do
if (m[i].gd>m[j].gd)or((m[i].gd=m[j].gd)and(m[i].ms>m[j].ms))
or((m[i].gd=m[j].gd)and(m[i].ms=m[j].ms)and(m[i].dn>m[j].dn)) then
  begin
   x:=m[i];
   m[i]:=m[j];
   m[j]:=x;
  end;
writeln('Даты по возрастанию:');
for i:=1 to n do
writeln(m[i].dn,' ',m[i].ms,' ',m[i].gd);
readln
end.