[lmikle]

А в чем не работает.
А вообще, несколько советов.

1. Не надо писать все одной процелурой. Разбей код на несколько процедурок. Проще проверять.
2. Сделай контрольные выводы на экран промежуточных значений.