var dat: array[1 .. 500] of string[80]

type

  pNode=^TNode; {Типизированный указатель - указатель на данные типа TNode}

  TNode=record

    Value:/тип данных/; {значение элемента}

    Next:PNode; {Указатель на следующий элемент}

  end;

... объявление типов (Смотри выше)

var

  First:pnode; {Указатель на место в памяти, где находится первый элемент последовательности}

type

  pNode=^TNode; {Типизированный указатель - указатель на данные типа TNode}

  TNode=record

    Value:integer; {значение элемента}

    Next:PNode; {Указатель на следующий элемент}

  end;

var

  First:pnode;

  Temp:pnode; {временный указатель на ячейку. Понадобится для построения связанного списка}

begin

  {Создадим список из 4 элементов с разными числами}

  New(Temp); {Создали в памяти новый элемент. На него указывает указатель Temp}

  First:=Temp; {Это и будет первый элемент последовательности.

 Поэтому в указатель First мы занесем его адрес}

  Temp^.Value:=10; {Задаем значение для 1 элемента}

  New(Temp^.Next); {Создали новый (2) элемент в памяти. На него указывает указатель Temp^.Next}

  Temp:=Temp^.Next; {Теперь Temp - это указатель на новый (2) элемент.

 Причём в предыдущем (1) элементе Next указывает именно на него, как нам и нужно}

  Temp^.Value:=20;  {Задаем значение для 2 элемента}

  New(Temp^.Next); {Создали новый (3) элемент в памяти. На него указывает указатель Temp^.Next}

  Temp:=Temp^.Next; {Теперь Temp - это указатель на новый (3) элемент.

 Причём в предыдущем (2) элементе Next указывает именно на него, как нам и нужно}

  Temp^.Value:=30;  {Задаем значение для 3 элемента}

  New(Temp^.Next); {Создали новый элемент в памяти. На него указывает указатель Temp^.Next}

  Temp:=Temp^.Next; {Теперь Temp - это указатель на новый (4) элемент.

 Причём в предыдущем (3) элементе Next указывает именно на него, как нам и нужно}

  Temp^.Value:=40;  {Задаем значение для 4 элемента}

  Temp^.Next:=NIL; {Последний (4) элемент не должен указывать ни на какой.

 Поэтому у него Next должно быть NIL}

end.

type

  pNode=^TNode; {Типизированный указатель - указатель на данные типа TNode}

  TNode=record

    Value:integer; {значение элемента}

    Next:PNode; {Указатель на следующий элемент}

  end;

var

  First:pnode;

  Temp:pnode; {временный указатель на ячейку. Понадобится для построения связанного списка}

  v:integer;

begin

  First:=nil; {В начале у нас First не указывает ни на что}

  repeat

    write('Введите значение нового элемента (0 для выхода):');

    readln(v);

    if v=0 then break; {Если ввели 0, то окончим ввод элементов}

    if First=NIL then {Если First=NIL, то сейчас мы создадим первый элемент}

    begin

      new(Temp); {Создали первый элемент. Его адрес в Temp}

      First:=Temp; {Так как элемент первый, запомним его адрес}

    end else {Иначе это уже не первый элемент}

    begin

      New(Temp^.Next); {Создаем на основе предыдущего, чтобы сохранилась связь между элементами}

      Temp:=Temp^.Next; {Текущий элемент теперь тот, который мы только что создали.

                         И предыдущий указывает на него}

    end;

    Temp^.Value:=v; {Зададим значение текущего элемента}

    

  until false; {Бесконечный цикл. Прервется только если пользователь введет 0}

  {Всё у нас хорошо. Только вот в последнем элементе параметр Next не определен. Непорядок}

  Temp^.Next:=NIL; {Ну вот теперь то лучше}

  {Заметьте, что даже если пользователь сразу введет 0, то в переменной First будет NIL,

 что значит - пустой список}

 

  {Теперь выведем наш связанный список. Адрес его первого элемента находится в переменной First,

 и это хорошо %)}

  Temp:=First; {Укажем переменной Temp на первый элемент последовательности}

  while Temp<>NIL do {Пока текущий элемент существует}

  begin

    writeln(Temp^.Value); {Выводим текущий элемент}

    Temp:=Temp^.Next; {Переходим к следующему}

    {Обратите внимание, что если следующий элемент не существует,

     то в Temp попадет значение NIL, и цикл прекратится}

  end;

end.

  while First<>NIL do {Пока текущий элемент существует}

  begin

    Temp:=First;

    First:=First^.Next; {Переходим к следующему}

    Dispose(Temp); {Теперь удаляем элемент, который был}

    {Важно не перепутать две предыдущие строчки местами. сначала мы переходим к следующему элементу,

     а потом высвобождаем память от уже ненужного элемента}

  end;

  Temp:=First;

  while Temp<>NIL do {Пока элемент существует}

  begin

    if Temp^.Value=v then break; {Если нашелся элемент с нужным нам значением, то прервем цикл}

    Temp:=Temp^.Next; {Переходим к следующему элементу}

  end;

  {По окончании этого цикла указатель Temp будет указывать на элемент с искомым значением}

  {Заметьте, что если значение не найдено в списке, то в Temp окажется NIL, что вполне нам подходит}

function FindElement(FirstNode:PNode,Value:Integer):PNode;

var Temp:PNode;

begin

  Temp:=FirstNode;

  while Temp<>NIL do {Пока элемент существует}

  begin

    if Temp^.Value=Value then break; {Если нашелся элемент с нужным нам значением, то прервем цикл}

    Temp:=Temp^.Next; {Переходим к следующему элементу}

  end;

  FindElement:=Temp;

end;

  {Cначала найдем элемент, после которого будем вставлять}

  Temp:=FindElement(First,PrevStr);

  {Cоздадим новый элемент}

  New(Temp2);

  Temp2^.Value:=NewStr; {Зададим значение для него}

  Temp2^.Next:=Temp^.Next; {Сделаем так, чтобы он указывал на ту же строку,

                            на которую указывал элемент с PrevStr}

  Temp^.Next:=Temp2; {И наконец укажем элементом с PrevStr на наш новый элемент}

Procedure InsertElement(First:PNode;PrevStr,NewStr:string);

var

  Temp,Temp2:PNode;

begin

  Temp:=FindElement(First, PrevStr);

  New(Temp2); { Cоздаем новый элемент}

  Temp2^.Value:=NewStr; {Зададим значение для него}

  Temp2^.Next:=Temp^.Next; {Сделаем так, чтобы он указывал на ту же строку,

                            на которую указывал элемент с PrevStr}

  Temp^.Next:=Temp2; {И наконец укажем элементом с PrevStr на наш новый элемент}

end;

Procedure InsertElement2(PrevElement:PNode;NewStr:string);

var Temp:PNode;

begin

  New(Temp); {Cоздадим новый элемент}

  Temp^.Value:=NewStr; {Зададим значение для него}

  Temp^.Next:=PrevElement^.Next; {Сделаем так, чтобы он указывал на тот же элемент,

 на какой указывал PrevElement}

  PrevElement^.Next:=Temp; {И наконец укажем элементом PrevElement на наш новый элемент}

end;

Procedure DeleteElement(var First:PNode; ValueToDelete:/Тип данных/);

{First должна быть именно var на случай, если удаляемый элемент - самый первый}

var Temp,Temp2:PNode;

begin

  If First^.Value=ValueToDelete then {Если удаляемый элемент - первый, то это частный случай.

                                      Обработаем отдельно}

  begin

    Temp:=First; {Сохраним указатель на него}

    First:=First^.Next; {Сделаем так, чтобы первым элементом теперь стал следующий}

    Dispose(Temp); {Удалим из памяти теперь уже бывший первый элемент}

    Break; {Окончим выполнение процедуры}

  end;

  {Иначе мы будем искать элемент с значением ValueToDelete, но будем запоминать указатель на

 предыдущий элемент}

  {Это нужно для того, чтобы исправить потом указатель, чтобы он не указывал на удаленный элемент}

  Temp:=First;

  while Temp^.Next<>NIL do {Пока у элемента есть следующий, продолжаем}

  begin

    if Temp^.Next^.Value=ValueToDelete then {Если значение следующего элемента - искомое то}

    begin

      Temp2:=temp^.Next; {Поместим в Temp2 указатель на удаляемый элемент}

      Temp^.Next:=Temp2^.Next; {Сделаем так, чтобы элемент перед удаляемым указывал на элемент

                                после удаляемого}

      Dispose(Temp2); {И наконец удалим из памяти удаляемый элемент}

      {Получится что предыдущий элемент указывает на следующий, а сам удаляемый элемент уже не существует}

      Break; {Прервём цикл, так как мы уже нашли удаляемый элемент}

    end;

    Temp:=Temp^.Next; {Перейдем к следующему элементу}

  end;

end;

Procedure DeleteElement2(var First:PNode; ElementToDelete:PNode);

var Temp,Temp2:PNode;

begin

  If First=ElementToDelete then {Если удаляемый элемент - первый, то это частный случай.

                                 Обработаем отдельно}

  begin

    Temp:=First; {Сохраним указатель на него}

    First:=First^.Next; {Сделаем так, чтобы первым элементом теперь стал следующий}

    Dispose(Temp); {Удалим из памяти теперь уже бывший первый элемент}

    Break; {Окончим выполнение процедуры}

  end;

  {Иначе мы будем искать элемент ElementToDelete, но будем запоминать указатель на предыдущий

   элемент. Это нужно для того, чтобы исправить потом указатель, чтобы он не указывал на удаленный    

   элемент}

  Temp:=First;

  while Temp^.Next<>NIL do {Пока у элемента есть следующий продолжаем}

  begin

    if Temp^.Next=ElementToDelete then {Если следующий элемент - искомый}

    begin

      Temp2:=temp^.Next; {Поместим в Temp2 указатель на удаляемый элемент}

      Temp^.Next:=Temp2^.Next; {Сделаем так, чтобы элемент перед удаляемым указывал на элемент

                                после удаляемого}

      Dispose(Temp2); {И наконец удалим из памяти удаляемый элемент}

      {Получится что предыдущий элемент указывает на следующий, а сам удаляемый элемент уже не существует}

      Break; {Прервём цикл, так как мы уже нашли удаляемый элемент}

    end;

    Temp:=Temp^.Next; {Перейдём к следующему элементу}

  end;

end;