arkadaşlar ufak bir projemde diziler ile çalışırken hata alıyorum yardım edecek varsa sevinirim

<%
yemek = array ("yemek 1","yemek 2","yemek 3","yemek 4","yemek 5","yemek 6","yemek 7","yemek 8","yemek 9","yemek 10")

s=0
for i=1 to 10
	s=s+10
		if i=1 then
		s=1
		end if
			randomize()
			adet=rnd(16)+5
			kac_adet(i)=adet
				for a=1 to adet
					randomize()
					seviye=rnd(11)+s*1
					randomize()
					enerji=rnd(21)+10
					randomize()
					fiyat=rnd(16)+5
					randomize()
					cesit=rnd(10)
				
					c_yemek(i,a)=yemek(cesit)
					c_yemek2(i,a,1)=seviye
					c_yemek2(i,a,2)=seviye*enerji
					c_yemek2(i,a,3)=seviye*enerji*fiyat/10
				next
			
			if i=1 then
			s=0
			end if
next

for b=1 to 10
	response.Write(i &". serinin yemekleri")
	for c=1 to kacadet(b)
	response.Write(c_yemek(b,c) &"<br>")
	response.Write(c_yemek2(b,c,1) &"<br>")
	response.Write(c_yemek2(b,c,2) &"<br>")
	response.Write(c_yemek2(b,c,3)&"<br><br><br>")
	next
next

%>

kodlar üstteki gibi hiç bir veritabanı bağlantısı olmadan
randomize ile sayilar üreterek işlemler yapan bir sistem var
fakat üstteki kodlarda gerek kac_adet(i)=adet kısmında
gerekse c_yemek(i,a)=yemek(cesit) kısmında tür uyuşmazlığı hatası alıyorum
diziler konusunda biraz zayıfım yardımlarınızı bekliyorum