Написать функцию, которая возвращает максимальный элемент массива

program Project1;
 
const
  maxelem = 100;
type
  TArr =  array [1..maxelem] of integer;
 
 
procedure InArray (var arr: TArr; n: integer);
{Процедура для ввод значений в одномерный массив}
var
  i: integer;
begin
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(arr[i]);
    end;
end;
 
 
procedure OutArray(arr: TArr; n: integer);
{Процедура для вывода элементов одномерного массива в консоль}
var
  i: integer;
begin
  for i:= 1 to n do
    begin
      write(arr[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
end;
 
 
function MaxElemArr(arr:Tarr; n: integer): integer;
{Функция, которая возвращает максимальный элемент массива}
var
  i: integer;
  maxvalue: integer;
begin
  maxvalue:= arr[1];
  for i:= 1 to n do
    if arr[i] > maxvalue then
      maxvalue:= arr[i];
  MaxElemArr:= maxvalue;
end;
 
 
var
  a: TArr; { Переменная для  хранения массива.}
  nn: integer; {  Переменная для хранения значения количества элементов в массиве.}
  errpr: boolean; { Логическая переменная для корректного вывода ответа}
  SrAr: real; { Переменная для хранения значения среднего арифметического элементов массива.}
begin
  write('Введите значение максимального количества вводимых элементов массива (не более ',maxelem,'): ');
  Readln(nn);
  InArray(a,nn);
  writeln('Исходный массив: ');
  OutArray(a,nn);
  writeln('Значение максимального элемента массива равно: ', MaxElemArr(a,nn));
  Readln;
end.