Удалить элемент из двунаправленного списка после первого нуля

program spiski;
 
type
 
List = ^TList;
TList = record 
data: integer;  
next,   
prev: List;   
end;
 
var
nach, 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 
   x^.next:=first; 
   first^.next:=first^.next;
   Dispose(x); 
   z:=first 
   end
              else begin 
   z:=z^.next; 
   dx^.next^.next:=z^.next;
   Dispose(x);
                  end
             else begin
 dx:=z; z:=z^.next 
                  end;
                  
 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 5 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;
  Print(nach);
  writeln;
  Del(nach);
Print(nach);
  writeln;
end.