Вывод поддеревьев бинарного дерева

program Lab9;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils,
Windows;
 
type
TData = Integer;
 
TPNode = ^TNode;
 
TNode = record
Data : TData;
PLeft, PRight : TPNode;
end;
 
procedure TreeRead(var aPNode : TPNode; const aName : String);
var
Data : TData;
Code : Integer;
S : String;
begin
 
Write('Узел ', aName, '. Ключ: ');
Readln(S);
if S <> '' then
repeat
Val(S, Data, Code); //Преобразуем строковое значение в числовое.
if Code = 0 then
begin
//Создаём узел.
New(aPNode); //Выделяем память для узла.
aPNode^.Data := Data; //Записываем в узел значение ключа.
aPNode^.PLeft := nil; //Обнуляем указатель на левого потомка.
aPNode^.PRight := nil; //Обнуляем указатель на правого потомка.
TreeRead(aPNode^.PLeft, aName + '-1'); //Рекурсивный вызов диалога создания левого потомка.
TreeRead(aPNode^.PRight, aName + '-2'); //Рекурсивный вызов диалога создания правого потомка.
end
else //Если ключ задан НЕправильно.
Writeln('Неверный ввод. Следует ввести целое число. Повторите.');
until Code = 0;
end;
 
//Рекурсивная процедура для освобождения памяти, занятой деревом. (Удаление дерева).
procedure TreeFree(var aPNode : TPNode);
begin
if aPNode = nil then
Exit;
TreeFree(aPNode^.PLeft); {Рекурсивный вызов для освобождения памяти в левой ветви.}
TreeFree(aPNode^.PRight); {Рекурсивный вызов для освобождения памяти в правой ветви.}
Dispose(aPNode); {Освобождение памяти, занятой для текущего узла.}
aPNode := nil; {Обнуление указателя на текущий узел.}
end;
 
//Рекурсивная процедура для распечатки узлов дерева в прямом направлении.
procedure TreeWritelnD(const aPNode : TPNode; const aName : String);
begin
if aPNode = nil then
Exit;
Writeln(aName, ': ', aPNode^.Data);
TreeWritelnD(aPNode^.PLeft, aName + '-1');
TreeWritelnD(aPNode^.PRight, aName + '-2');
end;
 
 
//Рекурсивная функция для подсчёта узлов с заданным значением ключа.
function CountNode(const aPNode : TPNode; const aData : TData) : Integer;
var
Cnt : Integer;
begin
Cnt := 0; //Количество узлов, у которых значение ключа равно aData.
if aPNode <> nil then //Если дерево НЕпустое.
begin
//Если ключ текущего узла равен искомому, то учитываем этот узел в подсчёте.
if aPNode^.Data = aData then
Inc(Cnt);
//Рекурсивный вызов для подсчёта узлов в левой и правой ветвях.
Cnt := Cnt + CountNode(aPNode^.PLeft, aData) + CountNode(aPNode^.PRight, aData);
end;
CountNode := Cnt;
end;
 
 
 
 
var
PTree : TPNode;
Data : TData;
Cmd, Code, Res : Integer;
S, FileName : String;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
 
PTree := nil; //Начальная инициализация дерева.
 
Write('Ввод дерева: ');
TreeFree(PTree);
TreeRead(PTree, '0');
 
TreeWritelnD(PTree, '0');
Write('Ввод дерева завершён.');
 
Write('Работа программы завершена. Для выхода нажмите Enter.');
Readln;
end.