let
	var i:=0
	var j:=0
	var tmp:=0
	type arrint = array of int
	var a:arrint:= new arrint[10] of 10
in
	for i:=0 to 9 do
		for j:=i+1 to 9 do
			when (a[i]<a[j]) do
				(tmp:=a[i];
				a[i]:=a[j];
				a[j]:=tmp)
end