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

[neZvezda]

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

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

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

[neZvezda]

Никто никого не критикует совершенно. Я не программист в пятом колене, чтобы знать как и что делается, поэтому задаю вопросы. И если здесь всех встречают так враждебно, то зачем вобще тогда помогать друг-другу?
Принимайте любые меры, но когда у меня не получается, то я задаю вопросы и прошу объяснить. Вроде бы логично.

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

1. сформировать

Type 
 point = ^item;
 item = record
   number: integer;
   next: point
 end;

 First: = nil; 
 While n>0 do 
   begin
     New®; 
     r^.Next:=first; 
     r^.Numbe:=n;
     First:=r; 
     n := n-1 
   end;

так? в факе так.


2. просмотр списка

procedure Print (first: point);
Var r: point
Begin
 R: = first;
 While r<>nil do 
   begin
     Writeln ('number = ' ,r^.Number);
     R:=r^.Next;
   end;

3. поиск в списке

Procedure Search (first: point; x: integer; var q: point);
var 
 r: point;
 ok: boolean;
begin
 r: = first; 
 ok: = true;
 while (r<>nil) and ok do if r^.Number=x then ok:=false else r:=r^.Next; 
 q: = r
end;

4. удаление

Procedure Delete(Var q: point);
Var r: point;
Begin
 r:=q^.next;
 q^:=r^;
 r^.Next:=nil; 
End;

Еще тогда главный модуль. Правильно ли?

begin
clrscr;
first:=nil;
Print(first);
Search(first);
Delete(first);
end.

Ну вот в принципе и все, что я написала. Видимо, чего-то не то.