На место наименьшего элемента массива записать среднее арифметическое всех элементов массива - Turbo Pascal

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

дан массив V(b₁, b₂, ..., b₃₀). В элемент b_i, содержащий наименьшее значение, записать среднее арифметическое значение элементов массива.

Решение задачи: «На место наименьшего элемента массива записать среднее арифметическое всех элементов массива»

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

const nMax = 30;
 
type arr = array [1..nMax] of real;
var V: arr;
  num: integer;
 
procedure makeArray;
var z:integer;
  begin
    randomize;
      for z:= 1 to nMax do
        v[z]:=50-random()*random(101);
  end;
 
procedure writeArray;
var z: integer;
  begin
    writeln('Massiv: ');
    for z := 1 to nMax do writeln(v[z]:4:2)
  end;
 
function arithMean(x: integer):real;
var z: integer;
    s:real;
  begin
    s:=0;
      for z := 1 to nMax do
        if z<>x then  s:=s+V[z];
    arithMean:=s/nMax;
  end;
 
begin
  makeArray;
  writeArray;
  writeln('Vvedite nomer elementa: ');
  readln(num);
  V[num]:=arithMean(num);
  writeln('Srednee arifmeticheskoe = ',V[num]:4:2,' v elemente b[',num,']');
  writeArray;
  readln
end.

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

В функции makeArray создается массив V типа arr с максимальным количеством элементов nMax.
В цикле for генерируются случайные числа для каждого элемента массива V от 50 до 100.
В функции writeArray выводится сообщение Massiv: и затем для каждого элемента массива V выводится его значение в формате 4.2.
В функции arithMean вычисляется среднее арифметическое всех элементов массива V, кроме указанного числа x.
После выполнения всех предыдущих действий выводится сообщение с номером элемента, для которого вычисляется среднее арифметическое, и его значением.
В основной части программы сначала вызывается функция makeArray, затем функция writeArray, после чего считывается номер элемента, для которого нужно вычислить среднее арифметическое.
Вычисленное среднее арифметическое записывается в элемент массива V под номером считанного элемента.
Выводится сообщение с результатом вычислений.
Программа завершается вызовом функции readln.