Люди, хеелп Сортировка массива

uses crt; var a: array[1… 50] of integer; i,j,k,min: integer; beginwriteln ('Стоимости книг: '); for i: =1 to 50 do begin a[i]: =random (99-20+1)+20; {Цены книг задаются рандомно по формуле random (max-min+1)+min; то есть, если нужны другие цены, то менять их здесь} write (a[i]: 3); end; writeln; writeln ('Стоимость десяти самых дешевых книг: '); min: =99; for j: =1 to 10 do begin for i: =1 to 50 do begin if a[i]