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

program List1; 
{$APPTYPE CONSOLE} 
type 
PList = ^MyList; 
MyList = record 
Data : integer; 
Next : PList; 
Last : PList; 
end; 
Var L:PList; {указатель на первый элемент} 
Var T:Plist; {указатель на текущий элемент} 
 
//ДОБАВЛЕНИЕ ЭЛЕМЕНТА В НАЧАЛО СПИСКА 
procedure addItemHEAD(list:PList;item:integer); 
var t,n:PList; 
begin 
t:=list; 
while t^.Last<>nil do t:=t^.Last; 
new(n); 
n^.Data:=item; 
n^.Next:=t; 
t^.Last:=n; 
n^.Last:=nil; 
end;
 
//УДАЛЕНИЕ
procedure del( start: PList; item : integer); 
  var n, t : PList; 
begin 
  if start = nil then writeln('Список пуст!') 
  else 
    while (start <> nil) do 
    begin 
      if(start^.data = item) then 
      begin 
      new(n);
      n := start;
      t := n^.next; 
      t^.Last:= n^.last;
      t:=n^.Last;
      t^.next:=n^.next;
      dispose(n); 
      n := nil; 
      end else 
      start := start^.next; 
    end; 
end; 
  
var i:integer; 
begin 
new(L); 
L^.Data:=0; 
L^.Next:=nil; 
L^.Last:=nil; 
T:=L; 
writeln('Исходный список:'); 
for i:=1 to 10 do addItemHEAD(L,i); 
while T^.Last<>nil do T:=T^.Last; 
while T^.Next<>nil do begin write (' ',T^.data); T:=T^.next; end; 
writeln(); 
writeln('Вставка элемента (1) в начало,'); 
addItemHEAD(L,1);
while T^.Last<>nil do T:=T^.Last;  //Возвр указатель в начало
writeln('Удаление элемента  (5) '); 
del(L,5);
while T^.Next<>nil do begin write (' ',T^.data); T:=T^.next; end; 
readln; 
end.

del(T,5);