ПОМОГИТЕ РЕШИТЬ ПРОГРАММУ ПО ИНФОРМАТИКЕ : Дан одномерный массив S(N). Определить количество элементов, равных среднему значению массив S(N). Заменить эти элементы на 100

for i:= 1 to n do
begin
sr_arf = sr_arf +s[i]; - считаем сумму всех элементов
end;
sr_arf=sr_arf/n; - считаем среднее арифметичкое
for i:= 1 to n do
if (s[i] = sr_arf) then - если текущий элемент равен среднему арефм-му
begin
kol:=kol+1; считаем количество элементов
s[i] := 100; присваиваем текущему элементу 100
end;