Списки, Не получается никак! Опции

[Izmort]

предположим, что уже построен и задан указателем P однонаправленный список элементами которого являются целые числа. Написать программу, которая из списка P удаляет все вхождения элемента E.

Подскажите, пожалуйста, как создать список в котором будут оба вида указателей - как E так и P?

Ниже я привел мои "старания", процедура построения списка и выведения на экран.

program S2L2_1  ;


type P_item1 = ^item1;
     item1 = record
     info : integer;
     next : P_item1;
     end;

type E_item2 = ^item2;
     item2 = record
     info : integer;
     next : E_item2;
     end;

var P_begin,P_temp : P_item1; E_temp: E_item2;
      n : integer;


 procedure Form;
   var element,k : integer;
  begin
     randomize;
     k:=20;
     New(P_begin);
      element:= random(10);
    P_begin^.info := element;
    P_begin^.next := nil;
    P_temp := P_begin;
      k:=k-1;
	 while k<>0 do
	  begin
	    element:=random(50);
	    new (P_temp^.next);
	    P_temp := p_temp^.next;
	    P_temp^.info := element;
	    P_temp^.next := nil;
	    element:=random(5);
	    new (E_temp^.next);
	    E_temp := E_temp^.next;
	    E_temp^.info := element;
	    E_temp^.next := nil;
	    k:=k-1;
	  end;
  end;

procedure Print;
  begin
    P_temp := P_begin;
    write(' ',P_temp^.info);
    P_temp := P_temp^.next;
      while E_temp <> nil do
	begin
	write(' ',P_temp^.info);
	P_temp := E_temp^.next;
	write(' ',E_temp^.info);
	E_temp := P_temp^.next;
	end;
    writeln;
  end;



begin

Form;
Print;
readln;

end.

Это конечно же не работает... Но я уже не знаю что еще можно сделать...
помогите пожалуйста, у меня уже нет сил издеваться над этой задачей...

[volvo]

Смотри... Формируем список так:

procedure Form;
var
  k: integer;
  p_end: p_item;
begin
  randomize;
  k:=random(100);
  p_begin := nil;

  while k > 0 do begin
    new(p_temp);
    p_temp^.info := random(10);
    p_temp^.next := nil;

    if p_begin = nil then p_begin := p_temp
    else p_end^.next := p_temp;

    p_end := p_temp;
    k := k - 1;
  end;
end;

, удаляем элемент E - вот так:

procedure DelE;
var p: p_item;
begin
  writeln('BBedume E');
  readln(E);
  P_temp := P_begin;
  while (p_temp <> nil) and (P_temp^.next <> nil) do
  begin
    if p_temp^.next^.info=e then Begin
      p := p_temp^.next;
      p_temp^.next := p^.next;
      Dispose(P);
   end
   else P_temp := p_temp^.next;
 end;
end;

Это - почти все, что нужно... После этого надо проверить первый элемент на равенство E, и если равен - то удалить его... Доделай это сам (очень трудно теоретически что-то советовать, не имея под рукой компилятора). По-моему, нигде не ошибся, проверяй...