I can't really follow your code. Take a look at the following and see if it's similar or different from the way I would do it:



ListPalindroms(numbers[1...n] : integer)
1. for i := 1 to n
2. ...