Программа

UNIT v06_mod;
INTERFACE
  CONST MaxQuant=20; { Максимальное количество элементов массива }
  TYPE Power=1..MaxQuant; { Размерность массивов }
       Element=real; { Тип элементов массивов }
       VectorType=record { Тип - вектор }
                    N:Power; { Реальное количество элементов массива }
                    V:array[Power] of Element { Массив элементов }
                  end;

  FUNCTION GetMiddle(A:VectorType):Element; { Функция вычисления среднего }
IMPLEMENTATION
  FUNCTION GetMiddle(A:VectorType):Element; { Функция вычисления среднего }
    Var i:Power;       { Счетчик цикла }
        Sum:Element;   { Сумма элементов вектора }
    Begin
      Sum:=A.V[1]; { Начальное определение суммы }
      for i:=2 to A.N do   { Цикл набора суммы }
        Sum:=Sum+A.V[i];   { Набор суммы }
      GetMiddle:=Sum/A.N { Определение значения функции }
    End;
END.