Pascal binary tree depth first search problem.

[webdev]

I've been massing with this problem for almost a week. It's about DFS search in a binary tree. It compiles well but when i run it I get exitcode 216 error. Can anybody help? program prg; uses crt; type ptrnode=^node; node = record data: char; l,r: ptrnode; end;