Сортировка типизированного файлы в delphi7

[mifomen]

Вообщем пытаюсь сделать сортировку в тип. файле, думал что сортировка как в паскале прокатит, однако возникает ошибка при такое коде на кнопку сортировки. скриншот с ошибкой прикреплен как вложение!

procedure TForm1.BitBtn4Click(Sender: TObject);
var i1,j1:integer;
    sp,x,y:flol;
begin
 reset(f);
   for i1:=0 to filesize(f)-2 do
    for j1:=i1+1 to filesize(f)-1 do
    begin
   seek(f,i1);
    read(f,x);
    seek(f,j1);
    read(f,y);
    if x.fio>y.fio then
     begin
       sp:=x; x:=y; y:=sp;
       seek(f,i1);write(f,x);seek(f,j1); write(f,y);
      end;
     closefile(f);
     end;
end;

как надо изменить код чтобы сортировка заработала

[Прик]

Типизированные файлы так же нормально сортируются, как и любые другие массивы.
Было бы совсем хорошо, если CloseFile перенести в нужное место (в конец процедуры), а не закрывать файл после каждой итерации во внутреннем цикле.
И неизвестно есть ли где-то присвоение файловой переменной имя файла. А то сразу reset... Как-то не по-людски.

[mifomen]

Сообщение от Прик

Типизированные файлы так же нормально сортируются, как и любые другие массивы.
Было бы совсем хорошо, если CloseFile перенести в нужное место (в конец процедуры), а не закрывать файл после каждой итерации во внутреннем цикле.
И неизвестно есть ли где-то присвоение файловой переменной имя файла. А то сразу reset... Как-то не по-людски.

переменная связана с файлом при создании формы, а вот я по твоему closefile переместил и все заработало, спс!