const
 n = 10;
 a: array[1 .. n] of integer =
   (2, 5, 3, 8, 6, 9, 1, 13, 10, 22);

var
 aver, min: real;
 i, index: integer;

begin
 aver := 0;
 for i := 1 to 10 do
   aver := aver + a[i];
 aver := aver / n;

 min := maxInt;
 for i := 1 to n do
   if min > abs(a[i] - aver) then
     begin
       min := abs(a[i] - aver); index := i
     end;

 writeln('average = ', aver:10:5);
 writeln('closest = a[', index, '] = ', a[index]:4);
end.

program x;
const n=10;
var m1: array[1..n] of real;
   sred,delta_best: real;
   i,bliz: integer;
begin
  {Здесь вводим массив и просчитываем среднее значение}
  {...}


  {А теперь будем искать ближайший элемент}
  bliz := 1;
  delta_best := abs(sred-m1[1]);

  for i:=2 to n do
      begin
        delta :=  abs(sred-m1[i]);

        if delta < delta_best
           then
             begin
               delta_best := delta;
               bliz := i;
             end;
      end;

{...что-то там еще}
{...}
end.