В массиве четное количество элементов поменять местами в массиве…

Const NN=50; vara: 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.