В одномерном массиве размером N определить среднее значение элементов. Найти индекс элемента массива наиболее близкого к среднему значению. (паскаль)

Const

K = 13;

Var

A:array[1 ... K] of integer;

i, n:integer;

Sr, d:real;

Begin

For i: = 1 to K do

Begin

A[i]:=random (21) - 10;

Write (A[i],' ') ;

Sr:=Sr+A[i];

End;

WriteLn;

Sr:=Sr/K;

n:=1;

d:=abs (Sr-A[n]) ;

For i: = 2 to K do

Begin

if abs (A[i]-Sr)
Begin

n:=i;

d:=abs (Sr-A[n]) ;

End;

End;

WriteLn ('Sr = ', Sr) ;

WriteLn ('Номер ближайшего к среднему арифметическому: ', n) ;

End.