Юкио Сато "Обработка сигналов", Подозреваю ошибку в алгоритме БПФ Опции

[ZhekSooN]

Всем добрый день.
Решил скопировать алгоритм БПФ из книги Юкио Сато "Обработка сигналов" как самый простой и прозрачный из всех мною виданных.
В книге он написан на языке Basic, я же переписал его на Pascal`е. Переписал точно, ошибок вроде не нашел, но.. алгоритм не работает. В тестовой программе на выходе получается бред вместо исходной волны. Может ли кто-нибудь хорошо понимающий в алгоритмах БПФ сказать, где же ошибка в книге и/или у меня?
Прикрепляю страницу из книги и свой исходник

Эскизы прикрепленных изображений

 

Прикрепленные файлы

 FFT.zip ( 929 байт ) Кол-во скачиваний: 44

 

[maior]

В свое время сделал то же самое с алгоритмом из "Рабинер-Гоулд" - все заработало сразу, в разных видах, очень быстро и было очень компактно по коду.