Найти среднее арифметическое значение элементов заданного массива размером 15. Преобразовать исходный массив, вычитая из каждого элемента найденное среднее значение Turbo pascal

var    a: array[1..15] of real;   r: real;   n, i: integer; begin   // заполнение   for i:=1 to 15 do   begin     a[i] := i;     write(a[i], ' ');   end;        for i:=1 to 15 do   begin     r := r + a[i];     n := n + 1;   end;   r := r / n;   writeln;   writeln('Среднее ариф. ', r);        // вывод   for i := 1 to 15 do   begin     a[i] := a[i] - r;     write(a[i], ' ');   end; end.