Pascal - risoluzione labirinto

Ho buttato giù un po di codice

Program labi;
uses wincrt;

type albin=^nodo;
     nodo=record
	     inf:char;
	     sx,dx:albin;
 	  end;
    vchar=array[1..40]of char;
var albero:albin;
    dir:char;
    lung,i:integer;
    d:vchar;

procedure CaricaDirezioni(var a:vchar; var l:integer);
var fr:text;
    c:char;
begin
  assign(fr,'dir.txt');
  reset(fr);
  l:=0;
  while not EOF(fr) do
  begin
   read(fr,c);
   l:=l+1;
   a[l]:=c;
  end;
end;
procedure figli(var a:albin);
begin
for i:=2 to lung do
begin
 if d[i]='' then
             begin
              new(a^.sx);
              a^.sx^.inf:='';
              a^.sx:=nil;
             end
            else
             begin
               new(a^.sx);
               a^.sx^.inf:=d[i];
               figli(a^.sx);
             end;
if d[i]='' then
             begin
              new(a^.dx);
              a^.dx^.inf:='';
              a^.dx:=nil;
             end
           else
            begin
             new(a^.dx);
             a^.dx^.inf:=d[i];
             figli(a^.dx);
            end;
end;
end;
procedure CreaAlbero(var a:albin);
begin
 if d[1]= '' then a:=nil
             else
              begin
               new(a);
               a^.inf:=d[1];
               figli(a);
              end;
end;

riguardo solo il caricamento delle direzioni e dei nodi vuoti alla fine per posizionare le lettere, per ora basta questo.
Oggi faccio l'ultima procedura per caricare le lettere al posto giusto