Необходимо ввести с клавиатуры одномерный массив, вывести его, затем поменять в нем элементы местами (первый на последний, второй на предпоследний и т.д.) и вывести получившийся массив — Pascal(Паскаль)

var
 a:array[1..10]of integer;
 i:integer;
begin
 for i:=1 to 10 do readln(a[i]);
 for i:=1 to 10 do write(a[i],' ');
 for i:=10 downto 1 do write(a[i],' ');
 readln;
end.

var
 a:array[1..10]of integer;
 i,b:integer;
begin
 for i:=1 to 10 do readln(a[i]);
 for i:=1 to 10 do write(a[i],' ');
 for i:=10 downto 1 do begin
  b:=a[i];
  a[i]:=a[11-i];
  a[11-i]:=b;
 end;
 for i:=1 to 10 do write(a[i],' ');
 readln;
end.

const
  n=10;
var
  a:array[1..n]of integer;
  i,b:integer;
begin
  for i:=1 to n do
    readln(a[i]);
  for i:=1 to n do
    write(a[i]:2,' ');
  writeln;
  for i:=1 to n div 2 do
  begin
  b:=a[i];
  a[i]:=a[n-i+1];
  a[n-i+1]:=b;
 end;
 for i:=1 to n do
   write(a[i]:2,' ');
 writeln;
 readln;
end.