Обратный обход дерева - PascalABC.NET

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

Сделайте обратный обход для этих чисел: 56,35,81,1,77,83,63,34,60,7,87,11,98,27,82

type
  TInf=integer;
  pTree=^Tree;
  Tree=record
    Inf:TInf;
    Left,Right:pTree;
  end;
procedure AddToTree(var aT:pTree;const aInf:TInf);
begin
  If aT=nil then begin
    New(aT);
    aT^.Inf:=aInf;
    aT^.Left:=nil;
    aT^.Right:=nil;
  end else if (aInf>=aT^.Inf) then AddToTree(aT^.Right,aInf)
  else AddToTree(aT^.Left,aInf);
end;
procedure PrintT(aT:pTree);
begin
  If aT=nil then exit;
  PrintT(aT^.Left);
  PrintT(aT^.Right);
  write(aT^.Inf:7);
end;
var T:pTree;
    i,n:integer;
    a:TInf;
begin
  T:=nil;
  write('Количество узлов в дереве: '); readln(n);
  randomize;
  for i := 1 to n do begin
    a:=random(51)-25;
    write(a:7);
    AddToTree(T,a);
  end;
  writeln;
  writeln('Постфиксный обход дерева:');
  PrintT(T);
  readln;
end.

Решение задачи: «Обратный обход дерева»

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

  foreach var v in arr(56,35,81,1,77,83,63,34,60,7,87,11,98,27,82) do
    AddToTree(T,v);

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

В данном коде выполняется добавление элементов в дерево (в порядке in-order) с помощью рекурсивного вызова функции AddToTree. Список кода:

foreach var v in arr(56,35,81,1,77,83,63,34,60,7,87,11,98,27,82)
AddToTree(T,v); Задачей внешнего цикла является перебор всех элементов массива arr. Значение каждого элемента v передается в функцию AddToTree для добавления в дерево. Пожалуйста, уточните, если необходимо выполнить обратный обход дерева, то следует использовать функцию InOrder или PostOrder вместо AddToTree.