Pascal/Turbo Pascal - Punteros (Apuntadores)

Buenos días.
Necesito que alguine me ayude con un programita sobre apuntadores. Al compliar no obtengo ningín error, pero cuando lo ejecuto sí: Error 203 Orverflow Heap (Desboradmiento de montículo o pila de variables dinámicas).
Por favor necesito ayuda !!
anexo el codigo fuente:

program punteros; {Ejemplifica la implementaci¢n de
punteros en Pascal. Este programa es un ejemplo bastante simple.}
uses crt;

type
pt1= ^arbol;

arbol = record
info: string[20];
izq, der: pt1;
end;

var
raiz,pi,pd: pt1;
begin
clrscr;
new(raiz);new(pi);new(pd);
raiz^.info:= 'uno';
raiz^.izq:= pi;
raiz^.der:= pd;
pi^.info := 'dos';
pd^.info := 'tres';

end.

Respondido más abajo.