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

uses crt;

var a:array[1 ... 50] of integer;

i, j, k, min:integer;

begin

writeln ('Стоимости книг: ') ;

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]
end;

end;

write (min:3) ;

a[k]:=99;

min:=99;

end;

writeln;

end.