In general, it would be easier for people to help you if you post the text in the error message. However, I think I see the problem.
Starting on line 355, you have this:
Rem Sphere Collision
for t = 1 to NumberOfFruits : rem If I hit one of the little fruits
if Object collision(1,t + NumberOfFruits)>0
play sound 4
MyScore = MyScore + 100 : rem How many points each little fruit is worth
delete object t + NumberOfFruits
endIf
next t
So whenever the player collides with one of the fruit objects, you
delete it. Say you collide with fruit 23. On the next frame, this code is going to attempt check if you collide with fruit 23 again with
object collision(1,23). However, since object 23 was deleted this will cause an error.
An easy way to fix this would be to first check that the object still exists before checking the collision. The command for that is
object exist(objectNumber).
