От каждого из заданных m чисел X1,X2,..Xm отнять их среднеарифметическое
Результаты разместить на месте исходных данных

в цикле суммируешь все числа, затем делишь полученную сумму на количество чисел и опять же в цикле отнимаешь от каждого числа полученный при делении результат.
примерно вот так:

s:=0;
for i:=1 to m do
 s:=s+X[i];
s:=s/m;
for i:=1 to m do
 X[i]:=X[i]-s;