Динамические структуры данных, 2 задачи Опции

[neZvezda]

1) Составить программу, которая удаляет из списка L все элементы E, если таковые имеются.

2) Составить программу, которая переносит в конец непустого списка L его элемент.

как почитала в Faq, надо использовать 1.создание, 2.вывод, 3.поиск и 4.удаление? Или что-то еще?

[volvo]

To: Altair

uses crt;
type
  point = ^item;
  item = record
    number: integer;
    next: point
 end;


procedure print(first: point);
var r: point;
begin
  r := first;
  while r <> nil do begin
    writeln('number = ', r^.Number);
    r := r^.next;
  end;
end;

var
  p, r, first, save: point;
  found: boolean;
  i, n, E: integer;

begin
  clrscr;
  first := nil; i := 0;

  write('first element: '); readln(n);
  while n > 0 do begin
    new( r );
    r^.next := first;
    r^.Number := n;

    if i = 1 then save := r;
    inc(i);

    first := r;
    write('next element (0 to exit): '); readln(n)
  end;

  writeln('before:');
  print(first);

    r := save^.next;
    save^.next := r^.next;
    r^.next := first;
    first := r;

  writeln('after:');
  print(first);
end.