Упорядочить исходный массив в порядке возрастания цены изделий

program pr1;
uses crt;
type
    stanok= record
      naz:string;
      cena:integer;
      god:INTEGER;
      end;
var
    a,b: array[1..50] of stanok;
    i,m,j,k,n: integer;
    god_min,god_max:integer;
begin
    writeln('Кол-во изделий ');
    read(m);
    for i := 1 to m do
       begin
        writeln('Название изделия ');
        read(a[i].naz);
        writeln('Цена ');
        read(a[i].cena);
        writeln('Год выпуска ');
        read(a[i].god);
        end;
        writeln('Минимальный год ');
        readln(god_min);
        writeln('Максимальный год ');
        readln(god_max);
 for i:=1 to m do
  if (a[i].god> god_min) and (a[i].god<god_max) then
                                                 begin
                                                 n:=n+1;
                                                  writeln('Наименование  ', a[i].naz,
                                                  '   Цена  ', a[i].cena,
                                                  '   Год   ', a[i].god);
                                                  end;
  if n=0 then
  writeln('Таких изделий нет!!!')
  end.

program pr1;
uses crt;
type
    stanok= record
      naz:string;
      cena:integer;
      god:INTEGER;
      end;
var
    a,b: array[1..50] of stanok;
    x:stanok;
    i,m,j,k,n: integer;
    god_min,god_max:integer;
begin
write('Кол-во изделий m=');
read(m);
for i := 1 to m do
with a[i] do
 begin
  write('Название изделия: ');read(naz);
  write('Цена: ');read(cena);
  write('Год выпуска: ');read(god);
 end;
for i:=1 to m-1 do
for j:=i+1 to m do
if a[i].cena>a[j].cena then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x
 end;
clrscr;
writeln('Исходный массив');
writeln('---------------------------------------');
writeln('|Название изделия|  Цена  |Год выпуска|');
writeln('---------------------------------------');
for i:=1 to m do
with a[i] do
 begin
  gotoXY(1,whereY);write('| ',naz);
  gotoXY(18,whereY);write('|',cena:6);
  gotoXY(27,whereY);write('|',god:9);
  gotoXY(39,whereY);writeln('|');
 end;
writeln('---------------------------------------');
readln;
clrscr;
repeat
write('Минимальный год= ');
read(god_min);
write('Максимальный год= ');
read(god_max);
until god_max>god_min;
writeln('Изделия, выпущенные в ',god_min,'-',god_max,' годах');
writeln('---------------------------------------');
writeln('|Название изделия|  Цена  |Год выпуска|');
writeln('---------------------------------------');
n:=0;
for i:=1 to m do
if (a[i].god>=god_min) and (a[i].god<=god_max) then
 begin
  n:=1;
  with a[i] do
   begin
    gotoXY(1,whereY);write('| ',naz);
    gotoXY(18,whereY);write('|',cena:6);
    gotoXY(27,whereY);write('|',god:9);
    gotoXY(39,whereY);writeln('|');
   end;
 end;
writeln('---------------------------------------');
if n=0 then  writeln('Таких изделий нет!!!')
end.