Бинаарное дерево.Delphi 7

[ZhooZhik]

Дано бинарное дерево. Надо передлать обход в глубину в обход в ширину.

//описание дерева
type
  TNode=^PNode;
  TKey=integer;
  PNode=record
    key  :TKey;
    left :TNode;
    right:TNode;
  end;


const
  max=100;

var
  cnt:integer; //Количество элементов в массиве C
  C:array[1..max] of integer;

procedure InOrder(var Tree: TNode);
procedure Insert(var Tree:TNode; i: TKey);

implementation

//обход слева направо
procedure InOrder(var Tree: TNode);
begin
  if (Tree^.left<>nil) then InOrder(Tree^.left);
  inc(cnt);
  C[cnt]:=Tree^.key;
  if (Tree^.right<>nil) then InOrder(Tree^.right);
end;