В массиве четное количество элементов поменять местами в массиве 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.