Сортировка записей в типизированном файле

[Faina]

Здравствуйте!
Задача такова,что я пишу сортировку записей с учениками в типизированном файле по среднему баллу.
Однако после запуска программы база обнуляется.
Подскажите в чём ошибка.
вот код:
const
marks_count=3;{кол.-во оценок}
type
Tstudent = record
name,fam : string;
year : integer;
marks : array [1..3] of integer;
end;
var
student : Tstudent;
student1 : Tstudent;
minstudent:Tstudent;
tempstudent:Tstudent;
f:file of Tstudent;
k,z,t,i,j,num,u:integer;
q,z1,nmin:real;
begin
Assign(f,'f.txt');{открываю файл}
reset(f);{перезаписываю}

q := 0;{начало расчёта среднего балла}
for i:=1 to u do begin
z:=0;
for k:=1 to marks_count do begin
z:=z+student.marks[k];
q:=q+student.marks[k];
end;
z1:=z/marks_count;{средний балл}
end;
{начало сортировки}
t := filesize(f)-1;

for i:=0 to t-1 do begin
seek(f,i);
read(f,student);{читаю записи}
nmin:=Z1;
num:=i;

for k:=i+1 to t do begin
seek(f,k);
read(f,student);
if z1 < nmin then
begin
minstudent:=student;
nmin:=z1;
num:=k;
end;
end;
seek(f,i);
read(f,student);

seek(f,num);
write(f,student);

seek(f,i);
write(f,minstudent);
end;

for i:=0 to t do begin
seek(f,i);
read(f,student);
writeln(z1:2:2,' ');
END;

close(f);
end.
Надеюсь он вполне понятен.

[Serge_Bliznykov]

1) не забывайте использовать код [СODE] (кнопка с "решёточкой" - #)

2) так у вас второй строкой после begin
идёт обнуление файла:

  rewrite(f);{перезаписываю}

если файл есть - используйте
reset(f)

[Faina]

да я пробовала reset(f)
Однако ошибка явно в другом.Так как сортировка не работает.