Отсортировать массив записей по любому полю

type
 
 book=record
  name:string;
  year:integer;
 end;
 
 AB=array [1..10] of book;
 
 procedure Sort;
  var   
     f:file of book;
      i,j:integer;
      b:book;
      A:AB;
 
  begin
     assign(f,'Filename') \\ берем данные из файла
     reset(f);
     read(f,b);
     
     for i:=0 to n-1 do
      for j:=i+1 to n do
         if A[i].stag<A[j].stag then 
             begin
                 b:=A[i];
                 A[i]:=A[j];
                 A[j]:=b;
             end;
      while not eof(b) do begin
        write('Name'); readln(b.Name);
        write('Year');  readln(b.year);
      end;
   end;  
    
    
              
 
BEGIN
 
 sort;
 
end.

type
book=record
  name:string;
  year:integer;
end;
AB=array [1..50] of book;
var
a:AB;
tmp:book;
i:integer;
f:file of book;
 
BEGIN
   assign(f,'Filename') \\ берем данные из файла
     reset(f);
     i:=0;
    while not EOF(f) do
      begin
        read(f,tmp);
        i:=i+1;
        a[i]:=tmp;
      end;
 
 
end.

type
 
 book=record
  name:string;
  year:integer;
 end;
 
 AB=array [1..10] of book;
 
 procedure Sort;
  var   
     f:file of book;
      i,j,n:integer;
      b:book;
      A:AB;
 
  begin
 assign(f,'Filename') \\ берем данные из файла
     reset(f);
     i:=0;
    while not EOF(f) do
      begin
        read(f,b);
        i:=i+1;
        a[i]:=b;
      end;
     
     for i:=0 to n-1 do
      for j:=i+1 to n do
         if A[i].year<A[j].year then 
             begin
                 b:=A[i];
                 A[i]:=A[j];
                 A[j]:=b;
             end;
      while not eof(b) do begin
        write('Name'); readln(b.Name);
        write('Year');  readln(b.year);
      end;
   end;  
    
    
              
 
BEGIN
 
 sort;
 
end.

 for i:=0 to n-1 do
      for j:=i+1 to n-i do
         if A[i].year<A[j].year then 
             begin
                 b:=A[i];
                 A[i]:=A[j];
                 A[j]:=b;
             end;

for i:=1 to n-1
              for j:=n-1 downto i do
                   if a[j] > a[j+1] then
                       {Перестановка}

uses crt;
type
Book=record
  Fam:string[25];
  year:integer;
end;
AB=array [1..50] of Book;
var
a:AB;
tmp:Book;
i,k,j:integer;
f:file of Book;
 
begin
   assign(f,'c:\tm');
     reset(f);
     i:=0;
    while not EOF(f) do
      begin
        i:=i+1;
        read(f,a[i]);
      end;
    close(f);
      k:=i;
    writeln('Неотсортированные записи');
    for i:=1 to k do
       writeln(a[i].Fam);
    for i:=1 to k-1 do
      begin
        for j:=k-1 downto i do
          if a[j].year > a[j+1].year then
            begin
              tmp:=a[j];
              a[j]:=a[j+1];
              a[j+1]:=tmp;
            end;
      end;
      textcolor(5);
   writeln('отсортированные записи');
    for i:=1 to k do
       writeln(a[i].Fam,'   ',a[i].year);
 
 
end.