провеивание и комбинированный тип Опции

[BorisON]

в общем для меня очень сложная задача, я в полных непонятках
условие:
дан массив, содержащий: год, месяц, число, час, минуту и секунду
упорядочить массив в порядке возрастания от более ранних к более поздним
впринципе без проблем заполню, но с сортировкой не лады...если сеять "пузырьком" по году, то отсортируется так, а когда начнётся сортировка по месяцу, то всё переменится...в общем как дальше делать

program MJIuH;
{$APPTYPE CONSOLE}
uses
  SysUtils;
type data=record
god:integer;
mesac:byte;
chislo:byte;
chas:byte;
min:byte;
sek:byte;
end;
var
massiv:array[1..100] of data;
i,j:byte;
n,t:integer;

begin
randomize;
writeln('vvedite kol-vo zapisei');
readln(n);
for I := 1 to n do
  begin
    write('vvedite god');
    readln(massiv[i].god);
    write('vvedite mesac');
    readln(massiv[i].mesac);
    write('vvedite chislo');
    readln(massiv[i].chislo);
    write('vvedite chas');
    readln(massiv[i].chas);
    write('vvedite minutu');
    readln(massiv[i].min);
    write('vvedite sekundu');
    readln(massiv[i].sek);
  end;
for i := n downto 2 do
 for j := 1 to i - 1 do
  begin
  ??????????????????????????????? 
  end;

readln;
end.