преобразовать одномерный массив

[Евгения93]

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

[Mad_Cat]

var a:array[1..100] of real;s:real;i,n:integer;
begin
s:=0;readln(n);
for i:=1 to n do begin readln(a[i]);s:=s+a[i]; end;
s:=s/n;
for i:=1 to n do begin a[i]:=a[i]-s;write(a[i]:6:3);end;
end.

[Евгения93]

а можно программу полностью