Составить программу на паскале сортировки массива по возрастанию

Сортировка методом пузырька:

const n=10;
Var a:array[1..n] of integer; i,j,b:integer;
Begin
 for i:=1 to n do read(a[i]);
 for i:=1 to n-1 do
   for j:=i+1 to n do
     if a[j]<a[i] then
       begin
        b:=a[i];
        a[i]:=a[j];
        a[j]:=b;
       end;
 for i:=1 to n do write(a[i],' ');
End.