Деревья. Вычислить среднее арифметическое всех элементов - Pascal ABC

program pr;
 
type
  Pnode = ^node;
  node = record
    data: integer;
    left, right: Pnode;
  end;
 
var
  tree: Pnode;
  n, x, i, s: integer;
  avg: real;
 
procedure addtotree(var tree: Pnode; x: integer);
begin
  if tree = nil then
  begin
    new(tree);
    tree^.data := x;
    tree^.left := nil;
    tree^.right := nil;
    exit;
  end;
  if x < tree^.data then
    addtotree(tree^.left, x)
  else addtotree(tree^.right, x);
end;
 
procedure lkp(tree: Pnode);
begin
  if tree = nil then exit;
  Lkp(Tree^.left); 
  write('  ', Tree^.data); 
  Lkp(Tree^.right); 
end;
 
procedure summ(tree: pnode; var sum: integer);
begin
  if tree <> nil then begin
    sum := sum + tree^.data;
    summ(tree^.left, sum);
    summ(tree^.right, sum);
  end;
end;
 
procedure DeleteTree(var Tree1: PNode );
begin
  if Tree1 <> nil then
  begin
    DeleteTree(Tree1^.LEFT);
    DeleteTree(Tree1^.RIGHT);
    Dispose(Tree1);
  end;
end;
 
begin
  writeln('Введите количетво элементов');
  readln(n);
  for i := 1 to n do
  begin
    x := random(21);
    addtotree(tree, x);
  end;
  lkp(tree);
  writeln;
  writeln;
  s := 0;
  summ(tree, s);
  writeln;
  avg := s / n;
  writeln('Среднее арифметическое элементов двоичного дерева: ', avg);
end.