Двунаправленный список. Удалить следующий элемент после нуля

program spiski;
 
type
 
List = ^TList;
TList = record 
data: integer;  
next,    
prev: List;   
end;
 
var
nach,teck, ends: List;
  i, a: integer;
 
Procedure Del(var first:List);
 Var z,x,dx:List;
 Begin
 z:=first; 
 While z<>Nil do 
 if z^.data=0 then 
   if z=first then begin 
   first:=first^.next;
   Dispose(x); 
  
   end
   else begin
   if z <> nil then 
   begin 
   z:=z^.next; 
   dx^.next^.next:=z^.next;
   Dispose(x);
                  end
             else begin {удалить последний}
 writeln ('удалить последний');
                  end;
                  end;
          dx:=z; z:=z^.next;         
 End;
 
 
procedure Print(spis1: List);
begin
  if spis1 = nil then 
begin
writeln('Список пуст.');
exit;
end
  else begin 
while spis1 <>nil do
    begin
Write(spis1^.data, '  ');
      spis1 := spis1^.next
end;
end;
end;
 
 
begin
  for i := 1 to 11 do 
begin
a := random(8) - 5;
if nach = nil then 
begin
      new(nach); 
nach^.next := nil; 
nach^.prev := nil; 
      ends := nach; 
end
    else 
begin
      new(ends^.next); 
ends^.next^.prev := ends; 
ends := ends^.next;
ends^.next := nil; 
end;
    ends^.data := a;
end;
teck:=nil;
 teck:=nach;
  Print(nach);
  writeln;
  Del(teck);
Print(nach);
  writeln;
end.