Подправьте код задачи про среднее арифметическое - Pascal

Формулировка задачи:

Дано n количество деревьев, ввести в цикле у каждого дерева диаметр и посчитать средний диаметр деревьев.

program dz4;
var r,n,i: integer;
x:real;
begin
write('Сколько деревьев?: ');
readln(n);
write('Диаметр дерева: ');
readln(x);
for i:=2 to n do
    begin
    writeln('Диаметр дерева: ');
    readln(r);
    x:=x+x/n
       end;
writeln('Средний диаметр деревьев: ',x);
end.

Решение задачи: «Подправьте код задачи про среднее арифметическое»

Листинг программы

program dz4;
 
var
  n, i: integer;
  x, r: real;
 
begin
  write('Сколько деревьев?: ');
  readln(n);
  x := 0;
  for i := 1 to n do
  begin
    writeln('Диаметр дерева: ');
    readln(r);
    x := x + r
  end;
  writeln('Средний диаметр деревьев: ', x/n);
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных n, i, x и r типа integer и real соответственно.
Выводится вопрос Сколько деревьев?.
Считывается значение переменной n.
Инициализируется переменная x значением 0.
Запускается цикл for, который выполняется от 1 до n.
Внутри цикла выводится вопрос Диаметр дерева?.
Считывается значение переменной r.
Переменная x увеличивается на r.
После завершения цикла выводится результат в виде среднего диаметра деревьев, деленного на n.
Программа завершается.