Преобразовать одномерный массив, уменьшив каждый элемент на абсолютную величину среднего значения элементов массива

program Project1;
 
const
  maxelem = 20;
type
  TArr1float = array [1..maxelem] of real;
 
 
 
procedure RandInArr(var arr: TArr1float; n: integer; left, right: longint);
{Процедура для заполнения одномерного массива случайными числами}
var
  i: integer;
begin
  right:= right*100;
  left:= left*100;
  for i:= 1 to n do
      arr[i]:= (left + random(right - left + 1))/100;
end;
 
 
function SrAreth(arr: TArr1float; n: integer): real;
{Функция возвращает значение среднего арифметического элементов массива}
var
  i: integer;
  sum: real;
begin
  sum:= 0;
  for i:= 1 to n do
    sum:= sum + arr[i];
  SrAreth:= sum/n;
end;
 
 
procedure  ArrMinusArgument(var arr: TArr1float; n: integer; arg: real);
{Процедура в которой из каждого элемента вычитается значение заданного числа}
var
  i: integer;
begin
  for i:= 1 to n do
    arr[i]:= arr[i] - arg;
end;
 
 
procedure InfOutArr(arr: TArr1float; n: integer);
{Процедура для вывода одномерного вещественного массива в консоль}
var
  i: integer;
begin
  for i:= 1 to n do
    write(' ',arr[i]:6:2);
  Writeln;
end;
 
 
 
var
  a: TArr1float; {Переменная для хранения массива}
  n: integer; { Переменная для хранения значения количества элементов}
  ModulSrAreth: real; {Переменная для хранения значения среднего арифметического}
begin
  Randomize;
  write('Введите значение количества элементов (не более ',maxelem,'): ');
  repeat
    Readln(n);                {Ввод значения количества элементов массива}
    if (n < 1) or (n > maxelem) then   {Условие для проверки вводимого числа на вхождение в допустимый диапазон значений}
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;
  until false;
  RandInArr(a,n,-20,30);       { Заполнение массива случайными действительными числами}
  writeln('Исходный массив:');
  InfOutArr(a,n);              { Вывод элементов массива в консоль}
  ModulSrAreth:= abs(SrAreth(a,n));  { Вычисление модуля среднего арифметического}
  writeln('Модуль значения среднего арифметического элементов массива: ', ModulSrAreth:0:2 );
  ArrMinusArgument(a,n,ModulSrAreth);  { Вычитание из элементов массива значения модуля среднего арифметического}
  writeln('Измененный массив:');
  InfOutArr(a,n);                    { Вывод элементов массива в консоль}
  Readln;
end.