Сортировать студентов по возрасту (от младшего к старшему)

const nmax=30; 
type studentinfo=record 
 fam:string[15]; 
 day,month,year:integer; 
 znak: string[10] 
 end; 
 massive=array [1..nmax] of studentinfo; 
var sortstudent,student: massive; 
 i,g,n:integer; 
begin 
 writeln('Введите количество студентов'); 
 readln(n); 
 writeln('Список состоит из ',n,' студентов.'); 
 writeln('Введите фамилию, дату рождения и знак Зодиака для каждого студента.'); 
 for i:=1 to n do 
 begin 
 writeln('Всего в списке ',n,' студентов'); 
 writeln('Вы вводите ',i,'-го студента в список.'); 
 writeln('Введите Фамилию студента'); 
 readln(student[i].fam); 
 writeln('Введите дату рождения студента [информация вводится числовым значением]:'); 
 writeln('Введите День рождения'); 
 readln(student[i].day); 
 writeln('Введите Месяц рождения'); 
 readln(student[i].month); 
 writeln('Введите Год рождения'); 
 readln(student[i].year); 
 writeln('Введите знак Зодиака'); 
 readln(student[i].znak); 
 end;
 writeln(' Фамилия: ',student[i].fam,'; Дата рождения: ',student[i].day,'.',student[i].month,'.',student[i].year,'; Знак Зодиака: ',student[i].znak,'.'); 
 end; 
end.

program Project1;
const
  nmax = 30;
type
   Tstudentinfo = record
            fam: string[15];
 day,month,year: integer;
           znak: string[10]
                    end;
 Tmassive = array [1..nmax] of Tstudentinfo;
var
 sortstudent, student: Tmassive;
 i,j,g,n,p1,p2:integer;
 tmp: Tstudentinfo;
begin
 write('Введите количество студентов: ');
 readln(n);
 writeln('Список состоит из ',n,' студентов.');
 writeln('Введите фамилию, дату рождения и знак Зодиака для каждого студента.');
 for i:= 1 to n do
   begin
     writeln('Вы вводите ',i,'-го студента в список.');
     write('Введите Фамилию студента: ');
     readln(student[i].fam);
     writeln('Введите дату рождения студента [информация вводится числовым значением]:');
     write('Введите День рождения: ');
     readln(student[i].day);
     write('Введите Месяц рождения: ');
     readln(student[i].month);
     write('Введите Год рождения: ');
     readln(student[i].year);
     write('Введите знак Зодиака: ');
     readln(student[i].znak);
   end;
 writeln('Исходный массив записей:');
 writeln(' Фамилия:':15, ' Дата рождения: ':15, 'Знак Зодиака:':15);
 for i:= 1 to n do
   writeln(student[i].fam:15,student[i].day:7,'.',student[i].month:2,'.',student[i].year:4,student[i].znak:16);
 sortstudent:= student;
 for i:= 1 to n-1 do      // Сортировка найденый записей по номеру дома.
    for j:= 1 to n-i do
      begin
      p1:= sortstudent[j].day + sortstudent[j].month*100 + sortstudent[j].year*10000;
      p2:= sortstudent[j+1].day + sortstudent[j+1].month*100 + sortstudent[j+1].year*10000;
      if p1 > p2 then
        begin
          tmp := sortstudent[j];
          sortstudent[j] := sortstudent[j+1];
          sortstudent[j+1] := tmp;
        end;
      end;
 writeln('Отсортированный массив записей:');
 writeln(' Фамилия:':15, ' Дата рождения: ':15, 'Знак Зодиака:':15);
 for i:= 1 to n do
   writeln(sortstudent[i].fam:15,sortstudent[i].day:7,'.',sortstudent[i].month:2,'.',sortstudent[i].year:4,sortstudent[i].znak:16);
 readln;
end.