Паскаль. Удаление записей из динамического списка

[ypzor]

procedure delite_elem(var ukhead1,ukhead2:next);
var
pred,x,y,pp:next;
del:integer;
begin
x:=ukhead1;
y:=ukhead2;
while x<> nil do
 begin
   pp:=x;
   while y<> nil do
    begin
     if (x^.string1=y^.string1) AND (x^.string2=y^.string2) then
       begin
       pred:=pp;
       pp:=x^.sled;
      dispose(pred);
       end;
     y:=y^.sled;
    end;
  x:=x^.sled;
  y:=ukhead2;
  end;
end;

Пожалуйста, оформляйте Ваш код согласно правилам.
Есть 2 списка,если во 2 есть такие же слова как и в первом то из первого удаляются эти слова. В данном коде слова удаляются просто удаляются без подвязки к следующему элементу не могу сообразить в чнм проблема может кто-нибудь объяснить буду очень благодарен

[Serge_Bliznykov]

Сообщение от ypzor

В данном коде слова удаляются просто удаляются без подвязки к следующему элементу не могу сообразить в чнм проблема

во-первых, код надо выкладывать с описанием переменных.
как задаётся тип next можно только догадываться

во-вторых, неплохо бы иметь небольшую тестовую программку с двумя списками, которую можно было запустить и посмотреть в отладчике, что и как происходит в процедуре delite_elem.

[evg_m]

pp:=x;
....
        pred:=pp;( ==x!!!!!)