Удаление нескольких элементов из динамического списка

  var
Head: TPElem; //Указатель на начало списка
 x: TPElem;    //Указатель на элемент списка
pred: TPElem; //Предыдущий элемент списка
Head2,y: TPElem;        
  
 x:= Head;
 y:= Head2;
j:=1;
    If Combobox1.ItemIndex=0 then
  begin
While (x^.Next <> nil) and (y^.Next <> nil) do
begin
 j:=AnsiCompareText(y^.Data,'Пассажирский'); //осуществление поиска
 If j=0 then
  begin
    x^.Data:= Copy(x^.Data,39,26);
    Memo1.Lines.Add(x^.Data);
  if  x=head  then   //удаление
  begin
     head:=x^.Next;
   end
   else
   begin
  pred:=head;
  while pred^.Next<>x do
    begin
     pred^.Next:=x^.Next;
    pred:=pred^.Next;
    end;
    end;
  Memo2.Lines.Add(x^.Data);
     x:= x^.Next;
     y:= y^.Next;
     end;
     end;
     Dispose(x);
   end;

While (x^.Next <> nil) do // если в списке всего 1 эл-т, то тело цикла не будет выполнено ни разу
begin
  If AnsiContainsText(x^.Data,'Пассажирский') then
  begin
    x^.Data:= Copy(x^.Data,39,26); // непонятно зачем тут гадить текстовое содержимое эл-та ? он что, более не нуже будет в оригинальном виде ?
    Memo1.Lines.Add(x^.Data); вывод содержимого эл-та
  DeleteElem(head,x,pred); // удаление эл-та - чему в этот момент равен pred ? 
  end;
    Memo1.Lines.Add(x^.Data); // и ОПЯТЬ вывод элемента - нахрена дважды-то выводить ?
   x:= x^.Next; // 
   end;