Обход дерева сортировки (pascal)

[Steelix]

Помогите пожалуйста, я написал программку для сортировки таблицы с помощью двоичного дерева, но обход дерева работает неправильно. Напишите пожалуйста как правильно должна выглядеть процедура вывода дерева в таблицу( процедура WriteTree), в ней вся проблема. Вот программка:

program TreeSort;

type
	tKey = string[10];
	tData = string[10];
	tItem = record
		key: tKey;
		data: tData;
	end;
	tPtr = ^tNode;
	tNode = record
		left, right: tPtr;
		key: tKey;
		data: tData;
	end;
	tTree = tPtr;
	tTable = record
		NumofItems: integer;
		Items: array [1..nmax] of tItem;
	end;
	tSymbols = array[1..62] of char;

procedure FillSymbols(var S: tSymbols);
var
	i: integer;
	ch: char;
begin
	i := 1;
	for ch := '0' to 'z' do begin
		if ch in ['0'..'9', 'A'..'Z', 'a'..'z'] then begin
			s[i] := ch;
			i := i + 1;
		end;
	end;
end;

procedure FillTable(var t: tTable; var S: tSymbols; n: integer);
var
	str: string;
	i, j, len: integer;
begin
	randomize;
	t.NumofItems := n;
	with t do begin
		for i := 1 to n do begin
			t.items[i].data := '0123456789';
		end;
		i := 1;
		while i <= n do begin
			len := random(10) + 1;
			str := '';
			for j := 1 to len do begin
				str := str + s[random(62)+1];
			end;
			items[i].key := str;
			i := i + 1;
		end;
	end;
end;

procedure AddToSortTreeTime(var t: tTree; var key: tKey; var d: tData);
begin
	if t = nil then begin
		New(t);
		t^.key := key; t^.data := d;
		t^.left := nil; t^.right := nil;
	end
	else if key < t^.key then begin
		AddToSortTreeTime(t^.left, key, d);
	end
	else if key > t^.key then begin
		AddToSortTreeTime(t^.right, key, d);
	end;
end;

procedure WriteTree(var t: tTable; var tr: tTree; i: integer);
begin
	if (tr^.right <> nil) then WriteTree(t, tr^.right, i);
		i  := i + 1;;
		t.items[i].key := tr^.key;
	if (tr^.left <> nil) then WriteTree(t, tr^.left, i);
end;

var
        t: tTable;
	tr: tTree;
	n, i: integer;
	S: tSymbols;
begin
	randomize;
	FillSymbols(S);
	n := 20;
	FillTable(t, S, n);;
	for i := 1 to n do begin
		AddtoSortTreeTime(tr, t.items[i].key, t.items[i].data);
	end;
	i := 0;
	WriteTree(t, tr, i);
	for i := 1 to n do begin
	        writeln(t.items[i].key);
	end;
	readln;
end.

[oleg_kn]

я вот ету юзал =)

procedure view(n : vkl; var d:integer);
var
i : integer;
begin
for i:=1 to d do begin
write(' ') end;
writeln(n^.zap^,'(',n^.klych,')');
if (n^.lv=nil) and (n^.pr=nil) then d:=d-1
else begin
if n^.lv<>nil then begin
d:=d+1;
view(n^.lv,d);
end;
if n^.pr<>nil then begin
d:=d+1;
view(n^.pr, d);
end;
d:=d-1;
end;
end;