Отредактировать программу

[el.bason]

Нужно отредактировать программу чтобы выводился список студентов упорядоченных по дате рождения. Помогите плз

program wwod_swed;
uses crt;
Type
birthday = Record
dd:1..31;
mm:string[10];
yy:integer;
end;
student=Record
famil:string[20];
name:string[15];
date:birthday;
ball: array[1..3] of integer;
srball:real;
end;
Var
gruppa: array[1..20] of student;
n,k:word;
i:integer;
m:real;
begin
clrscr;
Write('сколько человек в группе? ');
Readln(n);
Writeln ('введите фамилию студента:');
for i:=1 to n do
with gruppa[i] do
begin
write(i,' студент ');
writeln('фамилия ');
Readln (Famil);
writeln('имя ');
Readln (name);
writeln('дата рождения ');
Read (date.dd);
Read (date.mm);
Readln (date.yy);
write('оценки');
Read (ball[1]);
Read (ball[2]);
Readln (ball[3]);
srball:=(Ball[1]+ball[2]+ball[3])/3;
end;



for i:=1 to n do
with gruppa[i] do
begin
if(ball[1] and ball[2] and ball[3])=2 then
writeln(Famil,' ',name,' ',date.dd,' ',date.mm,' ',date.yy,' ',ball[1],ball[2],ball[3],' ' ,srball);
end;

Readln;
end.

[Serge_Bliznykov]

у Вас есть массив записей gruppa
Отсортируйте его по нужному полю и всё, проблема решена!

p.s. для этого рекомендую изменить структуру типа birthday на нормальную!
месяц должен быть перечисляемого типа (целое число, например).
Иначе Вы замучаетесь сравнивать 5 Ниссана с 6 Мрт...