Verified answer

const n=50;
var
a:array[1..n] of integer;
m,i,j:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(3600)+300;
write(i,'. ',a[i]);
end;
for j:=1 to n-1 do begin
for i:=1 to n-1 do
if a[i]>a[i+1] then begin
m:=a[i];
a[i]:=a[i+1];
a[i+1]:=m;
end;
end;
writeln;
for i:=1 to 10 do writeln(i,') ',a[i]);
end.

То-что курсивом это организация ввода в массив цен. Если у вас другой способ то измените. 3600 это max цена, а 300 min можно и тут поменять . Как угодно)