Нахождение собственных веторов матрицы методом обратных итераций. Pascal

[Nilagor]

Прошу помощи. Есть задание:
1) Методом Хаусхолдера привести симметричную матрицу к трёхдиагональному виду
2) с помощью LR алгоритма найти собственные числа
3) собственные вектора найти методом обратных итераций.
С первыми 2мя пунктами проблем не возникло, над третьим бьюсь уже пару недель. Перелопатил пол гугла и кучу учебников, нашёл десятки различных описаний. По сути все они сводятся к одному и тому же, но везде разные условия остановки. Перепробовал их все, но всё равно происходит зацикливание. Помогите разобраться в чём дело? Или дайте пожалуйста работающий исходник на pascalе или Delphi.
Буду очень приочень благодарен.