Помогите решить задачку на массив в паскале:Дана последовательность чисел а1, а2,

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]gt;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.