Указатели и динамическая память.

 uses
  crt;
 
type
  PElem = ^Elem;
  Elem = record
    data: integer;
    next: PElem
  end;
 
var
  head, tail, p, p1: PElem;
  item, search: integer;
 
begin
  head := nil;  tail := nil;
  writeln('Enter a integer number.');
  repeat
    new(p);//выделяем память под новую структуру
    readln(p^.data);
    p^.next := nil;
    if head = nil then head := p
    else
      tail^.next := p;
    tail := p;
    writeln('Continue writing? (N-no)')
  until (readkey = #110);//пока не будет нажата клавища 'N'
  
  writeln('Enter item to search for');//ввод элемента для поиска
  readln(search);
  
  {Поиск элемента и удаление}
  p := head;
  while(p  <> nil) do
  begin
   if(p^.data=search)and(p^.next<>nil)and(p^.next^.data<>search)then
      begin
        p1:=p^.next;
        p^.next:=p1^.next;
        dispose(p1);
      end;
    p := p^.next;
  end;
  
  {Вывод сиска}
  writeln;
  write('List=');    
  p := head;
  while(p <> nil) do
  begin
    write(p^.data, ' ');
    p := p^.next;
  end;  
  
  {Освобождение памяти занимаемой списком}
  p := head;
  while(head <> nil) do
  begin
    p := head;
    head := head^.next;
    dispose(p);
  end;
end.