Задача на ссылочные типы данных, Не выходит решить... Опции

[Eskel]

Спасибо огромное форуму. Смог решить 2 задачи по вставке и удалению элемента при работе с динамической памятью. Вот только не пойму как решить с помощью описанных у вас процедур 2 задачи:

1)

type tip_elem=integer;
     ukaz=^dinam;
     dinam=record
       ed:tip_elem;
       next:ukaz;
     end;

.
Удалить из списка Ukaz за каждым вхождением элемента Е один элемент отличный от Е (если он есть).

2) Певая часть условия совпадает... Удалить из списка Ukaz все нули

[Eskel]

program dina;
uses crt;
type tip_elem=integer;
     ukazat=^dinam;
     dinam=record
       ed:tip_elem;
       next:ukazat;
     end;
var h:ukazat;
    e:tip_elem;
    i,n:integer;
procedure addel(var h:ukazat; e:tip_elem);
var p,pr:ukazat;
begin
  new(p);
  p^.ed:=e;
  p^.next:=nil;
  if h=nil then h:=p
  else begin
    pr:=h;
    while pr^.next<>nil do
          pr:=pr^.next;
    pr^.next:=p;
  end;
end;

procedure show(h:ukazat);
begin
  writeln('==========');
  while h<>nil do begin
    writeln(h^.ed);
    h:=h^.next;
  end;
end;

procedure delsp(var h:ukazat);
var p:ukazat;
begin
  while h<>nil do begin
    p:=h^.next;
    dispose(h);
    h:=p;
  end;
end;
procedure obr(e:tip_elem; var h:ukazat);
var r:ukazat;
begin
while r<>nil do begin
if r^.ed=e then
if (r^.next<>nil) and (r^.next^.ed<>e) then begin
h:=r^.next;
r^.next:=h^.next;
dispose(h); end;
r:=r^.next end;
end;

begin
  clrscr;
  h:=nil;
  write('vvedite kol-vo zapisey ');
  readln(n);
   for i:=1 to n do begin
    write('chislo ');
    readln(e);
    addel(h,e) end;
  show(h);
  writeln('vvedite element E');
  readln(e);
  obr(e,h);
  show(h);
  delsp(h);
  show(h);
  readln
end.

Вот, что я пытался сделать...