Люди, хеелп Сортировка массива (метод пузырька; метод простого выбора). В массиве хранится информация о стоимости каждой из 50 книг. Вывести на экран стоимости 10 самых дешевых книг. паскаль.

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]<min then begin min:=a[i];k:=i; end; end; write(min:3); a[k]:=99; min:=99; end;writeln;end.