Ошибка в процедуре подстановки в динамических переменных

procedure Podstanovka;
begin
clrscr;
l:=pervl;
l1:=pervl1;
l2:=pervl2;
c:=true;
new(tek);
new(p);
new(p^.sled);
new(nach);
new(nach^.sled);
while (l<>nil) and c do
  if l^.inf=l1^.inf then
     begin
     tek:=l;
     l:=l^.sled;
     l1:=l1^.sled;
     b:=true;
     while l1<>nil do
        begin
        if l1^.inf<>l^.inf then
           b:=false;
        l:=l^.sled;
        l1:=l1^.sled;
        end;
     if b then
        begin
        poslkon:=l;
        c:=false;
        end
       else
        l1:=pervl1;
     end
   else
     begin
     l:=l^.sled;
     end;
if b then
begin
l:=pervl;
pervnach:=nach;
while l<>tek do
   begin
   nach^.inf:=l^.inf;
   nach:=nach^.sled;
   l:=l^.sled;
   end;
l:=poslkon;
pervp:=p;
while l<>nil do
   begin
   p^.inf:=l^.inf;
   p:=p^.sled;
   l:=l^.sled;
   end;
l:=pervl;
while l<>nil do
   begin
   hv:=l;
   l:=l^.sled;
   dispose(hv);
   end;
hv:=l;
nach:=pervnach;
while nach<>nil do
   begin
   new(hv^.sled);
   hv:=hv^.sled;
   hv^.sled:=nil;
   hv^.inf:=nach^.inf;
   nach:=nach^.sled;
   end;
while l2<>nil do
   begin
   new(hv^.sled);
   hv:=hv^.sled;
   hv^.sled:=nil;
   hv^.inf:=l2^.inf;
   l2:=l2^.sled;
   end;
p:=pervp;
while p<>nil do
   begin
   new(hv^.sled);
   hv:=hv^.sled;
   hv^.sled:=nil;
   hv^.inf:=p^.inf;
   p:=p^.sled;
   end;
end;
end;{podstanovka}