For i:=0 to 511 do 
   for n:=1023 downto 512 do
   Sum2[0,i]:=DataIn[p+i]-DataIn[p+n];