Сортировка записей Опции

[-Екатерина-]

У меня есть типизированный файл с записями
И я хочу отсортировать записи по ключевому признаку (табельному номеру)
Z - динамически массив только из таб номеров

t:=filesize(f2);
getmem(Z,t*sizeof(integer));
k:=0;
while not (eof(f2)) do
begin
read(f2,zap);
inc(k);
Z^[k]:=zap.tn;
end; close(f2);

for j:=1 to k-1 do
for i:=1 to k-j do
if z^[i]>z^[i+1] then
begin

а дальше не знаю: как переставлять записи в файле??? только не пользуйтесь пожалуйста прямым доступом!!