Вывести элементы массива в обратном порядке

const
  n = 10;
 
type
  arr = array [1..n] of integer;
 
var
  a: arr;
 
procedure Create(var x: arr; size: integer);
var
  i: integer;
begin
  for i := 1 to size do
  begin
    Write('A[', i, '] = ');
    ReadLn(x[i])
  end;
end;
 
procedure Print(x: arr; size: integer; b: boolean);
var
  i: integer;
begin
  if b then
  begin
    for i := 1 to size do
      Write(x[i], ' ');
  end
  else
  begin
    for i := size downto 1 do
      Write(x[i], ' ')
  end;
  WriteLn
end;
 
procedure Replace(var x: arr; size: integer);
var
  tmp: integer;
begin
  tmp := x[1];
  x[1] := x[size];
  x[size] := tmp
end;
 
function max(x: arr; size: integer): integer;
var
  i, m: integer;
begin
  m := -MAXINT - 1;
  for i := 1 to size do
    if x[i] > m then
      m := x[i];
  max := m
end;
 
function min(x: arr; size: integer): integer;
var
  i, m: integer;
begin
  m := MAXINT;
  for i := 1 to size do
    if x[i] < m then
      m := x[i];
  min := m
end;
 
function Avg(x: arr; size: integer): real;
var
  i, s: integer;
begin
  s := 0;
  for i := 1 to size do
    s := s + x[i];
  Avg := s / size;
end;
 
begin
  WriteLn('Введите массив:');
  Create(a, n);
  WriteLn('исходный массив:');
  Print(a, n, true);
  WriteLn('В обратном порядке:');
  Print(a, n, false);
  Replace(a, n);
  WriteLn('Поменяли местами первый и последний элемент:');
  Print(a, n, true);
  WriteLn('Среднее арифметическое = ', Avg(a, n):0:5);
  WriteLn('MAX = ', max(a, n));
  WriteLn('MIN = ', min(a, n));
end.