Линейные списки

procedure DelList(var first: PElem);
var p,q,t:PElem;
begin
  while (first <> nil) and not odd(first^.int) do
  begin
    t := first; first := first^.next; dispose(t);
  end;
 
  p:=first;
  while (p <> nil) and (p.next<>nil) do
  begin
    q:=p^.next;
    if q.int mod 2=0 then
    begin
      p^.next:=q^.next;
      t := q; q := q^.next;
      dispose(t);
    end
    else p:=p^.next;
  end;
end;

Dispose(q);

procedure DelList(var first: pelem);
var
  P, Q: PElem;
begin
  p := first;
  q := first;
  while p^.next <> nil do
  begin
    p := q^.next;
    if p^.inf mod 2 = 1 then
    begin
      q^.next := p^.next;
      dispose(p);
      p := q;
    end
    else
      q := p;
  end;
  p := first;
  if p^.inf mod 2 = 1 then
  begin
    first := p^.next;
    dispose(p);
  end;
end;

procedure DelList(var first: pelem);
var
  p, q: PElem;
begin
  p := nil;   //Указатель на предыдущий элемент.
  q := first; //Указатель на следующий элемент.
  while q <> nil do
    if q^.inf mod 2 = 1 then
    begin
      if p <> nil then
      begin
        p^.next := q^.next;
        dispose(q);
        q := p^.next;
      end
      else
      begin
        first := q^.next;
        dispose(q);
        q := first;
      end;
    end
    else //Переходим к следующей паре элементов.
    begin
      p := q;
      q := q^.next;
    end;
end;