Не работает сортировка массива

[Алексей_2012]

Здравствуйте! Помогите сделать сортировку массива записей рабочей, смысл в том, что на форме есть 2 радиокнопки, при активации одной из кнопок содержимое комбобокса меняется, затем открывается опен диалог, и выбирается файл записей, в котором осуществляется поиск данных, найденные данные заполняются в массив, далее в этом массиве происходит сортировка данных по фамилии, и далее отсортированные в массиве записи выводятся в ричедит

procedure TForm1.Button1Click(Sender: TObject);
var mass_sorted: array of trec;
  m, i1, n10: Word;
bf:trec;
begin
  if not OpenDialog1.Execute then Exit;
  AssignFile(f, OpenDialog1.FileName);
  Reset(f);
  Seek(f, 0);
  m := 0;
  SetLength(mass_sorted, filesize(f));
  while not Eof(F) do
  begin
    read(f, work);
    if RadioButton1.Checked then
    begin
      if Pos(AnsiLowerCase(Trim(ComboBox3.text)), AnsiLowerCase(Trim(work.Podr))) = 1 then mass_sorted[m] := work;
      Inc(m);
    end
    else
    begin
      if Pos(AnsiLowerCase(Trim(ComboBox3.text)), AnsiLowerCase(Trim(work.Dolzn))) = 1 then mass_sorted[m] := work;
      inc(m);
    end;
  end;
  for i1 := 0 to m - 1 do
    for N10 := i1 + 1 to m - 2 do
      if mass_sorted[i1].fam > mass_sorted[n10].fam then
      begin
        bf := mass_sorted[i1];
        mass_sorted[i1] := mass_sorted[N10];
        mass_sorted[N10] := bf;
      end;
 for i1:=0 to m-1 do    RichEdit1.Lines.add('|' + inttostr(mass_sorted[i1].Tn) + '|' +  mass_sorted[i1].Fam + '|' +  mass_sorted[i1].Im + '|' +  mass_sorted[i1].Oth + '|' + datetostr( mass_sorted[i1].DataR) + '|' + datetostr( mass_sorted[i1].DataJ) + '|' + datetostr( mass_sorted[i1].DataW) + '|' +  mass_sorted[i1].Adr + '|' +  mass_sorted[i1].Podr + '|' +  mass_sorted[i1].Dolzn + '|' + inttostr( mass_sorted[i1].NomP) + '|' + inttostr( mass_sorted[i1].Ser) + '|' +  mass_sorted[i1].KemV + '|');
  mass_sorted := nil;
  CloseFile(F);
end;

[Алексей_2012]

Неужели никто не может посмотреть ошибок в коде? Вить я все сделал сам, но у меня не работает, поиск работает, а сортировка нет

[Rin]

Попробуй так:

type alphabet='АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩЪЮЬЭЮЯ';


var m: array of trec;
i,j,x:integer;

procedure swap(var a,b:trec);
var c:trec;
begin
   c:=a;
   a:=b;
   b:=c;
end;

  procedure quick_sort(First,last:integer);
begin
i:=First;
j:=Last;
x:=pos(m[(i+j) div 2].Fam[1],alphabet);
repeat
  while pos(m[i].Fam[1],alphabet)<x do i:=i+1;
  while x<pos(m[j].Fam[1],alphabet) do j:=j-1;
  if i<=j then
  begin
      swap(m[i],m[j]);
      i:=i+1;
      j:=j-1;
  end;
until i>j;
if first<j then quick_sort(first,j);
if i<last then quick_sort(i,last);
end; 
..............
// сортировка массива
quick_sort(0,final_element_of_array);

[Serge_Bliznykov]

Алексей,
попробуйте изменить свой код сортировки на такой:

  for i1 := 0 to m - 2 do
    for N10 := i1 + 1 to m - 1 do
      if mass_sorted[i1].fam > mass_sorted[n10].fam then
      begin
        bf := mass_sorted[i1];
        mass_sorted[i1] := mass_sorted[N10];
        mass_sorted[N10] := bf;
      end;

[Алексей_2012]

Спасибо большое!