Сортировка

uses Crt;
 
type
  tovar=record
    name:string;
    quan:string;
    price:real;
  end;
  
var
  a:array[1..10] of tovar;
  i,n,j: integer;
  choice,l: integer;
  m,p: string;
  o: real;
  x: tovar;
begin
  write('Введите размер базы: ');
    readln(n);
  writeln('===============================');
  for i:=1 to n do
    begin
      write('Введите наименование: ');
        readln(a[i].name);
      write('Введите количество: ');
        readln(a[i].quan);
      write('Введите стоимость: ');
        readln(a[i].price);
      writeln('===============================');
    end;
    clrscr;
    
   
   //сортировка
   for i:=1 to n-1 do
         for j:=i+1 to n do
      if a[i].name>a[j].name then
         begin
          x:=a[i];
          a[i]:=a[j];
          a[j]:=x;
         end;
    
    //отсортированный массив
    for i:=1 to n do
      begin
        writeln('[',a[i].name,',',a[i].quan,',',a[i].price,']');
      end;
    writeln('===============================');
    
    
    writeln('По какому полю выполнять поиск?');
    writeln('По наименованию - 1');
    writeln('По количеству - 2');
    writeln('По стоимости - 3');
    readln(l);
      
      if (l<0)or(l>3)
        then writeln('Error!');
      if l=1 then begin
        write('Введите наименование: ');
          readln(m);
      for i:=1 to n do
        if a[i].name = m then 
          begin
            writeln('[',a[i].quan,',',a[i].price,']');
          end;
        end;
      
      if l=2 then begin
        write('Введите количество: ');
          readln(p);
      for i:=1 to n do
        if a[i].quan = p then 
          begin
            writeln('[',a[i].name,',',a[i].price,']');
          end;
         end;
  
      if l=3 then begin
        write('Введите стоимость: ');
          readln(o);
      for i:=1 to n do
        if a[i].price = o then 
          begin
            writeln('[',a[i].name,',',a[i].quan,']');
          end;
         end;
           
      writeln('Желаете повторить поиск?');
      writeln('Да - 1');
      writeln('Нет - 2');
      readln(choice);
end.