Сортировка массивов(?) в паскале

type
  book=record
    name: string[20];
    autr: string[20];
    cont: integer;
  end;
var
  a: array[1..100] of book;
  n,i,j: integer;
  tmp: book;
  f: file of book;
begin
  write('Сколько книг? ');
  readln(n);
  for i:=1 to n do
    with a[i] do
    begin
      writeln(i,'-я книга:');
      write(' название: ');
      readln(name);
      write(' автор: ');
      readln(autr);
      write(' количество страниц: ');
      readln(cont);
    end;
  for i:=2 to n do
    for j:=n downto i do
      if a[j-1].cont>a[j].cont then
      begin
        tmp:=a[j-1];
        a[j-1]:=a[j];
        a[j]:=tmp;
      end;
  assign(f,'c:\1.dat');
  rewrite(f);
  for i:=1 to n do
    write(f,a[i]);
  {проверочный вывод упорядоченного файла на экран
  seek(f,0);
  while not eof(f) do
    begin
      read(f,tmp);
      writeln(tmp.name,' ',tmp.autr,' ',tmp.cont);
    end;  }
  close(f);
end.

Const n=3;
Type bibl=Record
      kniga,avtor:string[15];
      kol:integer;
     End;
Var A:array[1..n] of bibl;
    i,j:byte;
    t:bibl;
    f:file of bibl;
Begin
    For i:=1 to n do
    Begin
      writeln('Введите информауию о ',i,' записи');
      write('Книга: ');readln(a[i].kniga);
      write('Автор: ');readln(a[i].avtor);
      write('Кол-во страниц: ');readln(a[i].kol);
    End;
    For i:=n downto 2 do
     For j:=2 to i do
      if A[j].kol>A[j-1].kol then 
      Begin
        t:=A[j];
        A[j]:=A[j-1];
        A[j-1]:=t;
      End;
    Assign(f,'in.dat');Rewrite(f);
    For i:=1 to n do 
     write(f,A[i]);
    writeln('Записано в файл "in.dat"');
    readln;
End.