Динамическая память

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);//пока не будет нажата клавища 'Y'
  
  writeln('Enter item to search for');//ввод элемента для поиска
  readln(search);
  writeln('Enter the item for replacement');//ввод элемента для вставки
  readln(item);
  
  {Поиск элемента и вставка}
  p := head;
  while(p ^.next <> nil) do
  begin
    if(p ^.next^.data = search) and (p <> head) then//если след. элемент равен искомому и это не начало списка
    begin
      new(p1);
      p1^.data := item;
      p1^.next := p^.next;
      p^.next := p1;
      break
    end
      else
        if(p^.data = search)then//если элемент равен искомому и это начало списка
          begin
            new(p1);
            p1^.data := item;
            p1^.next := p;
            head := p1;
            break
          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.

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);
  writeln('Enter the item for replacement');//ввод элемента для вставки
  readln(item);
  
  {Поиск элемента и вставка}
  p := head;
  while(p ^.next <> nil) do
  begin
    if(p ^.next^.data = search) then//если след. элемент равен искомому
    begin
      new(p1);
      p1^.data := item;
      p1^.next := p^.next;
      p^.next := p1;
      break
    end
      else
      //если вдруг что,то условие замени на if(p^.data = search)and(p=head)then
        if(p^.data = search)then//если элемент равен искомому и это начало списка
          begin
            new(p1);
            p1^.data := item;
            p1^.next := p;
            head := p1;
            break
          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.