Программа с одномерным массивом

[Novi_]

Пожалуйста, помогите написать программу!!!

Организовать ввод массива целых чисел,
и вывода нового массива, элементами которого
будут цифры из предыдущего минус среднее
арифметическое всех элементов.

[Niro]

вот

for i:=1 to n do
begin
readln(mas[i]);
s:=s+mas[i];
end;
s:=s/n;
for i:=1 to n do
mas[i]:=mas[i]-s;