элемент, который находится ближе всего к среднему значению, может быть как больше среднего значения так и меньше.
Тут имеет смысл считать модуль разницы между i-м элементом и средним, находить минимум этой разницы и запоминать индекс элемента, с которым разница минимальна.
srarifm:=summ/count...