Проблема с кодом по wav!!!!!!!!!

[dink10]

Есть следующий алгоритм, но не выходит его сделать, т.к. особо не шарю в wav. Помогите, пожалуйста!!!!

Переменные --------------------------------------

Левый, Правый, Текущий, Предыдущий = 0
Частота, Прошлая_Частота = 0
Фаза, Прошлая_Фаза = 1

Повтор, Разнобой = 1

Индекс = 0
Таблица, Поток = массив

Программный код ---------------------------------

Создать выходной файл
Открыть WAV-файл и переместиться на секцию "data"
Цикл пока не конец WAV-файла

Левый = Взять из WAV-файла отсчет левого канала
Правый = Взять из WAV отсчет правого канала
Текущий = ( Левый + Правый ) / 2

if Текущий < Предыдущий then Фаза = -1
if Текущий > Предыдущий then Фаза = 1

if Фаза = Прошлая_Фаза then
Частота = Частота + 1
else

if Частота = Прошлая_Частота then
Повтор = Повтор + 1
if Разнобой > 1 then
Разнобой = Разнобой - 1
Индекс = Таблица.Добавить( Разнобой, Список частот )
Поток.Добавить( Индекс )
endif
Разнобой = 0
else
if Повтор > 1 then
Поток.Добавить( Повтор, Прошлая_Частота )
endif
Повтор = 1
Разнобой = Разнобой + 1
Прошлая_Частота = Частота
endif

Прошлая_Фаза = Фаза
Частота = 1
endif

Предыдущий = Текущий

Конец цикла
Закрыть WAV-файл