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

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

У меня есть типизированный файл с записями
И я хочу отсортировать записи по ключевому признаку (табельному номеру)
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

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

[Гость]

хм....а как??
я так сделала

for j:=1 to k-1 do
for i:=1 to k-j do
if z^[i].tn>z^[i+1].tn then
begin
c:=z^[i];
z^[i]:=z^[i+1];
z^[i+1]:=c;
end;
rewrite(f2);
i:=1;
while not (eof(f2)) do
begin
read(Z^[i]);
write(f2,z^[i]);
inc(i);
end;