Написать программу сортировки массива по возрастанию из 10 случайных элементов.паскаль

program aaa;var   a:array[1..10] of integer;   i,j,x:integer;begin   randomize;   for i:=1 to 10 do      a[i]:=random(10000)-5000;   for i:=1 to 10 do      write(a[i],' ');   writeln;   for i:=2 to 10 do      for j:=10 downto i do         if(a[j-1]>a[j]) then begin            x:=a[j-1];            a[j-1]:=a[j];            a[j]:=x;         end;   for i:=1 to 10 do      write(a[i],' ');end.