В одномерном массиве найти среднее значение элементов массива - Turbo Pascal

Формулировка задачи:

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

Решение задачи: «В одномерном массиве найти среднее значение элементов массива»

Листинг программы

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i,j,k:byte;
    sr:real;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
sr:=0;
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:0:2,' ');
  sr:=sr+a[i];
 end;
sr:=sr/n;
writeln;
writeln('Среднее=',sr:0:2);
writeln;
writeln('Вычитание среднего:');
for i:=1 to n do
 begin
  a[i]:=a[i]-sr;
  write(a[i]:0:2,' ');
 end;
readln
end.

Объяснение кода листинга программы

Этот код написан на Turbo Pascal и выполняет следующие действия:

Объявляет переменные: nmax, n, i, j, k, sr (тип real для всех), а также переменную a (тип array[1..nmax] of real).
Инициализирует randomize, чтобы каждый раз при запуске программы генерировалась новая последовательность чисел.
Запрашивает у пользователя размер массива (до nmax включительно), затем считывает это значение в переменную n.
Выводит сообщение с размером массива и текущим значением n.
Создает массив a с n элементами типа real.
Инициализирует переменную sr нулем.
Использует цикл for для заполнения массива a случайными числами от 10 до 99 (включительно).
На каждой итерации цикла выводит текущее значение a[i], затем суммирует все значения a[i] с помощью переменной sr.
После завершения цикла вычисляет среднее значение sr/n и выводит его.
Использует еще один цикл for для вычитания среднего значения из каждого элемента массива a.
По завершении цикла выводит сообщение с результатом.
Завершает программу.