Задачка по сортировки записей, Срочно нужно! Опции

[Bogardan]

Народ, помогите пож-та кто-нибудь!Срочно нужно реализовать небольшую процедуру по проге!
Задание: Дана база данных "студент",надо отсортировать их по возрастанию по дате рождения,используя только год рождения(т.е.если есть дата 06.06.2006, то надо использовать только год - 2006). И,если можно,сделайте пож-та с моими типами и переменными!!Список двунаправленный циклический!Заранее благодарен!!!
Student = record
Family: string[20];
Name: string[20];
Otch: String[20];
BirthDay: string[10];
Male: string[10];
Facultet: string[3];

end;
StudentPoint=^StudentItem;
StudentItem = record
Data:Student;
Pred:StudentPoint;
Next:StudentPoint;