Дан массив из четного числа элементов. Поменять местами его половины

const N=20; var A: array [1… N] of Integer; Pos, Sum, Znak: Integer; begin Write ('Массив: '); Randomize; for Pos: =1 to N do begin A[Pos]: =Random (101) — 50; Write (A[Pos]: 4); end; WriteLn; for Pos: =1 to N div 2 do Sum: =Sum+A[Pos] -A[N div 2+Pos]; WriteLn ('Разность между суммой 1-й половины и 2-й=', Sum); end.