В одномерном массиве, состоящем n вещественных элементов, изменить порядок следования элементов массива на обратный, используя процедуру — Pascal(Паскаль)

uses crt;

const
  nmax = 100;

type
  mas = array [1 .. nmax] of real;

procedure Revers(var m: mas; n: byte);
var
  i: byte;
  x: real;
begin
  for i := 1 to n div 2 do
  begin
    x := m[i];
    m[i] := m[n - i + 1];
    m[n - i + 1] := x;
  end;
  writeln('Массив в обратном порядке:');
  for i := 1 to n do
    write(m[i]:0:2, ' ');
  readln
end;

var
  a: mas;
  n, i: byte;

begin
  clrscr;
  randomize;
  repeat
    write('Размер массива до ', nmax, ' n=');
    readln(n);
  until n in [1 .. nmax];
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    a[i] := 10 * random;
    write(a[i]:0:2, ' ');
  end;
  writeln;
  writeln;
  Revers(a, n);

end.