pi:=3.14159265358979;
step:=1;
indexW:=0;
N=8;
while (step<N) do
begin//000

step:=step*2;
halfstep:= step div 2;
u_re:=1;
u_im:=0;
w_re:=W[indexW];
w_im:=W[indexW+1];
indexW:=indexW+2;

for b:=0 to halfstep-1 do
begin//0

L:=b;
while (L<N) do
begin //1
R:=L+halfstep;

tempRE:=y1_re[R]*u_re-y1_im[R]*u_im;
tempIM:=y1_re[R]*u_im+y1_im[R]*u_re;
//-------бабочка
y1_re[R]:=round (y1_re[L]-tempRE);
y1_im[R]:=round (y1_im[L]-tempIM);

y1_re[L]:=round (y1_re[L]+tempRE);
y1_im[L]:=round (y1_im[L]+tempIM);
L:=L+step;
end; //1 end while j
//--------------
ac:=(w_re*u_re);
bd:=(w_im*u_im);
iad:=(w_re*u_im);
ibc:=(w_im*u_re);

u_re:=(ac-bd)/32767;
u_im:=(iad+ibc)/32767;

end;//0 end for b
end; //000