def AddArrayUp(array, v)
i = 0
l = getArrayLength(array)
while i < l
if v < array[i]
sort_i = l - 1
while sort_i >= i
array[sort_i + 1] = array[sort_i]
sort_i = sort_i - 1
end
array[i] = v
i = l
end
i = i + 1
end
if i == l
pushArray(array, v)
end
return array
end

a= createArray()
a[0] = "あお"
a[1] = "あか"
a[2] = "き"
a[3] = "くろ"
a[4] = "ちゃ"
a[5] = "むらさき"

#昇順になるよう配列に要素を追加する関数
a = AddArrayUp(a, "しろ")
a = AddArrayUp(a, "みどり")

speak("配列a\n", a) #あお,あか,き,くろ,しろ,ちゃ,みどり,むらさき

def AddArrayDown(array, v)  #配列 要素
	i = 0
	l = getArrayLength(array)
	while i < l #検索
		if v > array[i] #比較
			sort_i = l - 1
			while sort_i >= i #後ろにずらす
				array[sort_i + 1] = array[sort_i]
				sort_i = sort_i - 1
			end
			array[i] = v
			i = l
		end
		i = i + 1
	end
	if i == l
		pushArray(array, v)
	end
	return array
end