Решить программу по информатике : дан одномерный массив 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;