Строки, Ошибка Опции

[Студентик13]

Помогите найти ошибку. Мне задачу надо решить
Распечатать список студентов, упорядоченный
а) по алфавиту;
б) по месяцу рождения;
в) по году рождения;
г) по дате рождения.
Первую часть сделал, но чето не работает, проверьте в чем дело, а вторую засть про сартировку не понимаю на на F.A.Q чтото было посмотрю.

Код

uses crt;
type
TStuden = record
   name : string;
   year,month,day : integer;
end;
var
TFile:file of TStuden;
S:TStuden;
D,i:integer;
begin
i:=1;
assign(Tfile,'Tstudent.dat');
rewrite(Tfile);
repeat with S do begin
clrscr;
writeln;
writeln('-------------------------------------------------------');
writeln(' Введите данные o ',I,'-м студенте: ');
writeln('-------------------------------------------------------');
writeln(' Введите имя : ');
readln(name);
writeln('-------------------------------------------------------');
writeln(Введите год,месяц,день рождения через запятую : ');
readln(year,month,day);
close(Tfile);
End;

Сообщение отредактировано: Студентик13 - 13.01.2006 20:19