В массиве четное количество элементов поменять местами в массиве 1 с последним 2 с предпоследним и т. д

Const NN=50;

var

a:array [1 ... NN] of integer;

i, n, k:integer;

begin

write ('Введите кол-во эл-тов массива: ') ;

readln (n) ;

for i: = 1 to n do

begin

a[i]:=random (50) ;

write (a[i],' ') ;

end;

writeln;

for i: = 1 to n div 2 do

begin

k:=a[i];

a[i]:=a[n-i+1];

a[n-i+1]:=k;

end;

for i: = 1 to n do write (a[i],' ') ;

end.