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

[Neroaz]

AssignFile(F,'a.dat'); AssignFile(F2,'b.dat');
Reset(F); Rewrite(F2);
for i:=FileSize(F)-1 downto 0 do
  for j:=0 to i do
    begin
      Read(F,ie);
      if ie.Surname[i-1]>ie.Surname[i] then
      begin
      Seek(F,FilePos(F)-2);
      write(F2,ie) else ...
end;
end;
end;

Как дальше не знаю, подскажите.

[eoln]

Обязательно в файле надо? Пример сортировки по возростанию в одном файле паскалевским методом в консоле:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  data = record
    Surname: string[20];
    //...
  end;
var
  f: file of data;
  ie, ie2: data;
  i, j, k: integer;
begin
  //создание нового файла и вывод его на экран
  assignfile(f, 'a.dat');
  rewrite(f);
  for i := 1 to 10 do
  begin
    ie.Surname := 'name ' + inttostr(random(100));
    writeln(ie.Surname);
    write(f, ie)
  end;
  closefile(f);
  writeln;
  //сортировка внутри файла
  reset(f);
  for i := 0 to filesize(f) - 1 do begin
    seek(f, i);
    read(f, ie);
    k := i;
    for j := i + 1 to filesize(f) - 1 do begin
      read(f, ie2);
      if ie.Surname > ie2.Surname then begin
        k := j;
        ie := ie2
      end
    end;
    seek(f, k); read(f, ie2);
    seek(f, i); read(f, ie);
    seek(f, k); write(f, ie);
    seek(f, i); write(f, ie2)
  end;
  closefile(f);
  //вывод отсортированного файла
  writeln;
  reset(f);
  while not eof(f) do
  begin
    read(f, ie);
    writeln(ie.Surname)
  end;
  closefile(f);

  readln
end.

[Neroaz]

Да обязательно.
Спасибо большое все получилось, но нам показывали короче вариант.
P.S. Поставлю +