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

[Студентик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 16:19

[Malice]

У тебя нет записи в файл, write(TFile,s), только чтение переменных.

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

Да хоть и так все равно не работает

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

[volvo]

И как, собственно, ты проверял, что это не работает? Телепатов нет. Нужна помощь - приводи код. Нет кода - читай книги, ищи по форуму. Уже решалось. Специально для тебя никто заново решать не будет.

[Pola]

Да хоть и так все равно не работает

repeat есть
until нет?

Где конец-то программы?
Хотя бы такой:

End.