Работа с типизированными файлами!

[Anton5]

Помогите найти ошибку!
Вот процедура:

procedure TForm1.FilelotClick(Sender: TObject);
Var i,sum,sum2:integer;  q,s:string;
begin
if (OpenDialog1.FileName<>'')then
begin
  reset(F);
  With Form4 Do
  Begin
   sum2:=0;
  For I:=0 to filesize(f)-1 do
   begin
    seek(f,i);
    read(F,zap);
    sum:=zap.V_part;
     if (sum>sum2)or (sum=sum2)  then
  begin
     sum2:=sum;
     bl:=sum2;
     tr:=true;
     sum:=0;
   Grid1.Cells[0,i+1]:=inttostr(i+1);
   Grid1.Cells[1,i+1]:=inttostr(Zap.Number);
   Grid1.Cells[2,i+1]:=zap.FIO;
   Grid1.Cells[3,i+1]:=inttostr(Zap.Year);
   Grid1.Cells[4,i+1]:=inttostr(Zap.O_part);
   Grid1.Cells[5,i+1]:=inttostr(Zap.V_part);
   Grid1.Cells[6,i+1]:=inttostr(Zap.N_part);
   end;
end;
  Grid1.RowCount:=filesize(f)+1;
  Form4.Show;
end;
  end;
     end;

Она проводит сортировку по (V_part) поясню по количеству выигранных партий в шахматы. И по результатам этой сортировки она должна выводить результаты в StringGrid1(у меня называется Grid1). То есть она должна вывести трёх лучших игроков, набравших большое кол-во баллов.... У меня же выводит всех подряд... а мне надо только трёх лучших!!!
Помогите разобраться .... я где-то ступил.... Подскажите где....
Заранее спасибо

[Stilet]

Ну если в файле уже все отсортировано то:

  For I:=0 to filesize(f)-1 do
   begin
     if (i=3) then break;

[Anton5]

Дело в том, что не сортирует .... выдает первых трех, а на сортировку 0 внимания...

[Stilet]

Так подожди ты сказал что Она проводит сортировку...
Я не вижу тут никакой сортировки.
Тебе нужно ее писать?

[Anton5]

Ну в общем да, мне надо провести сортировку( по V_part)//по кол-ву выигранных партий в шахматы// и по её итогам вывести в StringGrid1 трёх лучших игроков

[Stilet]

Тогда читаем внимательно и пробуем:http://www.programmersforum.ru/showthread.php?t=48906

[Anton5]

Помогите разобраться с сортировкой в файле!
Вот фрагмент сортировки в типизированном файле:

 reset(f);
 for i:=filesize(f)-1 downto 1 do
  for j:=0 to i-1 do
   begin
    seek(f,j);
    read(f,zap,zap_v);
    if (zap.V_part<zap_v.V_part)or(zap.V_part=zap_v.V_Part) then
     begin
      seek(f,j);
      write(f,zap_v,zap);
     end;
   end;
    closefile(f);

А как будет выглядеть такая же сортировка только в ТЕКСТОВОМ файле?
заранее спасибо!