AR у Вас не определено. Кроме того,стоит прописать в конце перед end'ом readln,чтобы можно было посмотреть,что на вывод идёт.