Решить на массив в паскале: дана последовательность чисел а1, а2, … аn. требуется переставить числа в порядке возрастания.

Var i,n,j,m:integer;
mass:array[1..100] of integer;
begin
read(n);
for i:=1 to n do
read(mass[i]);
for i:=n-1 downto 1 do
for j:=1 to i do       
if mass[j]>mass[j+1] then
begin               
m:= mass[j];
mass[j]:= mass[j+1];               
mass[j+1]:= m;           
end;
for i:=1 to n dowrite(mass[i]:5);
end.