Работа с файлами и записями. Помощь с итоговой

[Refenement]

Сорри, но тока теперь я поняла, что я ничего вообще не понимаю в паскале. Удивительно, как я вообще все контрошки сдавала, причём нормально.

с такой вещью как списки знакомы?

Со списками не знакома.

тупо считывать все записи в массив, сортировать его любым методом, и поэлементно записывать в файл

Конечно понимаю тупость своего вопроса, но всё таки - это как?

Это нужно пройти циклом по массиву и в нем применить метод сортировки например пузырька, порой поиском по форуму тут уже были примеры алгоритмов сортировки

И это я конечно тоже не поняла

[Greblin]

Конечно понимаю тупость своего вопроса, но всё таки - это как?

assign(booksfile,'book.dat');
reset(booksfile);
assign(textfile,'book.txt');
rewrite(textfile);
i:=1;
while not eof(booksfile) do 
  begin
  read(booksfile,books[i]);
  i:=i+1;
  end;
n:=i;

Ну вот, ваш же код, вот оно и считывание в массив.
А сортировки, вот тут подробное описание нескольких алгоритмов сортировки, только вам сравнивать надо по books[i].author. Строки сравниваются так же, как числа

[Refenement]

Greblin
не могли бы вы просто написать код. Просто я замечаю, что когда вижу код - мне всё ясно и понятно. А так я вообще нифига не понимаю

Ну помогите плиз. У меня вообще ничего не получается. Есть некие наброски на 4
а вот на 2 вообще ничего. НЕ ПОНИМАЮ

Вот ту сделала с одним знакомым, который очень приочень давно изучал Паскаль. Посмотрите может есть каки-то недочёты
Тут 2 и 4 вместе.

program primer1;
uses crt;
type
  RBook = record
    name_book : string[30];
    avtor     : string[20];
    pages     : word;
    year_pub  : word;
  end;
var
  i,j,n : integer;
  q, q1 : RBook;
  f     : file of RBook;
  Size, MaxPages, MaxI : Integer;
begin
  ClrScr;
  Assign(F, 'Book.dat');
  Reset(F);
  Size := FileSize(F); {определение числа записей в файле}

  {выводим содержимое файла для контроля}
  for i:=1 to Size do begin
    Read(F, q);
    WriteLn(q.name_book, ' ', q.avtor, q.pages:5, q.year_pub:6);
  end;
  WriteLn;

  {сортировка файла по полю "автор"}
  for i := 1 to Size do
    for j := 1 to Size - i do begin
      Seek(F, j-1); {позиционируем на запись}
      Read(F, q);   {читаем ее}
      Read(F, q1);  {и следующую}
      if q.avtor > q1.avtor then begin
        {меняем записи местами}
        Seek(F, j-1);
        Write(F,q1);
        Write(F,q);
      end;
    end;

  Reset(F);
  {выводим содержимое файла для контроля сортировки}
  for i:=1 to Size do begin
    Read(F, q);
    WriteLn(q.name_book, ' ', q.avtor, q.pages:5, q.year_pub:6);
  end;
  WriteLn;

  {ищем книгу с максимальным числом страниц}
  Reset(F);
  MaxPages := 0;
  for i:=1 to Size do begin
    Read(F, q);
    if q.pages > MaxPages then begin
      MaxPages := q.pages;
      MaxI := i-1;
    end;
  end;

  {выводим книгу с максимальным числом страниц}
  Seek(F,MaxI);
  Read(F,q);
  WriteLn(q.name_book, ' ', q.avtor, q.pages:5, q.year_pub:6);

  Close(f);
  ReadLn;
end.

Помогите исправить предыдущий код.
Там надо сделать сохранение результатов в текстовый файл.
Это как?

[alex_fcsm]

заводите переменную

ft:text;

создаете файл

assign(ft,'1.txt');
rewrite(f);

Записываете все данные

WriteLn(q.name_book, ' ', q.avtor, q.pages:5, q.year_pub:6);

Закрываете файл

close(f);