Trie, (нагруженное дерево) процедура добавления

[ManHunterGroms]

Здравствуйте. Помогите сделать процедуру добавления в дерево.
Вот что я имею на данный момент:

PHP код:

uses crt;
Type 
TIndex = 'a'..'z';
TrieNode = ^TNode;
TNode = record
next: array [TIndex] of TrieNode;
bool: boolean; // булевая характеристика обозначающая является ли ключ промежуточным элементом или нет
end;
 
function NewNode: TrieNode; // создание узла
var i: TIndex;
    trie: TrieNode;
begin
new(trie);
trie^.bool:=false;
for i:='a' to 'z' do
trie^.next[i]:= nil;
end;
 
procedure Add (var trie: TrieNode; str: string); // добавление
var i: integer;
begin
if trie = nil then trie:= NewNode;
if str = '' then
trie^.bool:= true
else
for i:=1 to length(str) do
Add(trie^.next[str[i]], str[i]);
end; 


Если можно, было бы не плохо помочь мне сделать процедуру вывода на экран.

Помогите пожалуйста.