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

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.