В паскале. дан одномерный массив размером N, упорядочить элементы в нем по возрастанию

Const m=200;

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

i, j, n: integer;

begin

write ('количество элементов массива: ') ;

readln (n) ;

randomize;

write ('массив: ') ;

for i:=1 to n do

begin

a[i]:=random (40) ;

write (a[i],' ') ;

end;

writeln;

write ('отсортированный массив: ') ;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then swap (a[i], a[j]) ;

for i:=1 to n do write (a[i],' ') ;

end.

количество элементов массива: 10

массив: 32 2 10 22 2 13 25 6 15 6

отсортированный массив: 2 2 6 6 10 13 15 22 25 32