Найти среднее арифметическое значение элементов заданного массива размером 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.