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

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.