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

uses crt;

const
  nmax = 100;

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

function Max(m: mas; n: byte): real;
var
  i: byte;
  mx: real;
begin
  mx := m[1];
  for i := 1 to n do
    if abs(m[i]) > abs(mx) then
      mx := m[i];
  Max := mx;
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] := 20 * random - 10;
    write(a[i]:0:2, ' ');
  end;
  writeln;
  writeln;
  write('Максимальный по модулю элемент=', Max(a, n):0:2);
  readln

end.