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

 type Apteka=record
  nomber:string;
  name:string;
  proizvod:string;
  group:string;
  adres:string;
  recept: string;
end;
var
i,k:integer;
preparats: array [1..100] of Apteka; //задать количество препаратов
begin
for i:=1 to k do 
   begin
   writeln ('Сведения о ', i , '-м препарате: '); 
   writeln ('введите код препарата: ');
   readln (preparats[i].nomber);
   writeln ('введите название препарата: '); 
   readln (preparats[i].name); 
   writeln ('введите производителя: '); 
   readln (preparats[i].proizvod); 
   writeln ('введите лекарственную группу: '); 
   readln(preparats[i].group);
   writeln ('Необходим рецепт? '); 
   readln(preparats[i].recept);
   writeln ('Препараты, которые можно купить без рецепта:  '); 
   
   end; 
end.

const nmax = 1000; // максимально возможное количество препаратов
type Apteka=record
  number: string;
  name: string;
  proizvod: string;
  group: string;
  recept: byte; // 0 - без рецепта, 1 - по рецепту
end;
var
 i: integer;
 preparats: array [1..nmax] of Apteka; // массив описания препаратов
 n: integer; // реальное количество препаратов, n <= nmax
begin
 writeln ('Количество препаратов: ');
 readln (n);
 for i:= 1 to n do 
  begin
   writeln('Сведения о ', i , '-м препарате: '); 
   write('введите код препарата: ');
   readln(preparats[i].number);
   write('введите название препарата: '); 
   readln(preparats[i].name); 
   write('введите производителя: '); 
   readln(preparats[i].proizvod); 
   write('введите лекарственную группу: '); 
   readln(preparats[i].group);
   write('отпускается по рецепту (0 - нет, 1 - да): '); 
   readln(preparats[i].recept);
  end;
 writeln ('Препараты, которые можно купить без рецепта:  ');
 for i:= 1 to n do 
  if preparats[i].recept = 0
   then writeln(preparats[i].name); 
end.

 type drug=record
  nomber:string;
  name:string;
  proizvod:string;
  group:string;
  adres:string;
  recept: boolean;
end;
 
begin
var n:= ReadLnInteger('кол-во препаратов =');
var drugs:= new drug[n];
for var i:=0 to n-1 do 
   begin
   writeln ('Сведения о ', i , '-м препарате: ');
   drugs[i].nomber:= ReadLnString('введите код препарата:');
   drugs[i].name:= ReadLnString('введите название препарата:');
   drugs[i].proizvod:= ReadLnString('введите производителя:');
   drugs[i].group:= ReadLnString('введите лекарственную группу:');
   drugs[i].recept:= ReadLnChar('Необходим рецепт? y/n:') = 'y';
   end; 
   
writeln ('Препараты, которые можно купить без рецепта:');
for var i:= 0 to n - 1 do
   if not drugs[i].recept then
     writeln(drugs[i].name);
end.