Free pascal exit code 201

Question

my code

I'm trying to make a program to generate amicable numbers under 10000, but after i pressed ctrl+f9, it exited with exit code 201. How do i fix that?

Answer 1

Probably in the expression a[a[i]], a[i] contains an invalid index, which leads to the range check error as Ken said.

For starters, you initialize cells with 0, but you don't initialize a[0]