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

ConstK = 13;VarA:array[1..K] of integer;i,n:integer;Sr,d:real;BeginFor 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)<d then       Begin       n:=i;       d:=abs(Sr-A[n]);       End;    End;WriteLn('Sr = ',Sr);WriteLn('Номер ближайшего к среднему арифметическому: ',n);End.