#pas
// Заполняем массив Sum2
  For n := 0 to 1 do
  For i:=0 to 511 do 
   Sum2[n,i]:=DataIn[p+i]-DataIn[p+1024-i];