сортировка данных в файле

[doomer3]

Помогите пожалуйста с решением задачи:
Дан файл anketa.txt c анкетными данными: ФИО год рождения и т.д.
Требуется отсортировать и вывести в файл anketa2.txt.
Не могу отсортировать. Вот что наклепал:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type spisok = record
    name:string[34];  {1}
    birth:integer;    {2}
    edu:char;         {3}
    marr:char;        {4}
    child:char;       {5}
    pol:string[2];    {6}
    prof:char;        {7}
end;

var fin,fout2:textfile; fin2,fout:file of spisok; f:spisok;
    i,k:integer;

begin
  AssignFile(fin,'anketa.zdb'); AssignFile(fout,'anketa.res');
  reset(fin); rewrite(fout);
  while not eof(fin) do
    begin
      readln(fin,f.name,f.birth,f.edu,f.marr,f.child,f.pol,f.prof);
      write(fout,f)
    end;
    closefile(fin);
    closefile(fout);
   { assignfile(fin2,'anketa.res');
    assignfile(fout2,'anketa2.txt');
    reset(fin2);
    rewrite(fout2);

      while not eof(fin2) do
        begin
          read(fin2.f);






            closefile(fin2);
            closefile(fout2);
  }
     { TODO -oUser -cConsole Main : Insert code here }

  end.

Файл anketa.txt Anketa.txt


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Asker13]

А по какому параметру сортировать и как: по возрастанию или убыванию?

[doomer3]

Сортировать по году рождения - второй параметр в файле анкета.txt (f.birth) по возрастанию.

[Asker13]

Сортировка пузырьком:
http://ru.wikipedia.org/wiki/%D0%A1%...BA%D0%BE%D0%BC

[doomer3]

тоже подумал про пузырек, только как применить его к (f.birth) и задать ограничение конца списка в цикле на практике ? может числом строк в файле ?

[Asker13]

Тебе надо создать массив spis: array [1..N] of spisok;, где N - константа и является любым числом (100 например). Потом изменить чтение вот так:

count := 0;
while not eof(fin) do
begin
  Inc(Count);
  with spis[count] do
    readln(fin, name, birth, edu, marr, child, pol, prof);
end;

Count - переменная, которая будет содержать значение равное количеству строк в файле.
У тебя есть массив, есть количество элементов (count). Остаётся только отсортировать и вывести всё в файл.

[doomer3]

Спасибо! Попробую!

[doomer3]

что значит with ? компилятор ругается

[Asker13]

http://pas1.ru/with
Не знаю, почему ругается, вроде не должен. Может он не на него ругается, а на массив spis?

[doomer3]

проверю, но только завтра, спокойной ночи!