Задан массив b, размерностью 10 элементов. заполните его и упорядочить элементы по возрастанию.(программой)

Const  n=10;
var a: array [1..n] of integer;
      j,k,i,p,f:integer;
begin
  for i:=1 to n do
    a[i]:=random(1,10);
  writeln(a);
  for j:=1 to n do 
    for i:=1 to n-j do
    begin
      if a[i]>a[i+1] then      
begin
         swap(a[i+1],a[i]);
      end;
      end;
  writeln(a);
end.