Dispose ( t);

End

Else

if i = n then

begin { см. случай удаления последнего элемента}

...

End

else {удаление из «середины» списка}

Begin

t:= first;

q:= nil;

k:= 1;

while (k < i) do

begin {поиск адресов (i-1)-го и i-го элементов}

k:= k + 1;

q:= t;

t:= t^.next;

End;

r:= t^.next;

{найдены адреса i-го (t), (i-1)-го (q) и (i+1)-го (r) элементов }

q^.next:= r;

dispose (t); {удален i-ый элемент }

End;

End;

End;

Удаление всего списка с освобождением памяти.

Procedure Delete_List(Var First: el);

Var

P, q: el;

Answer: string;

Begin

If First <> Nil Then

Begin { список не пуст }

writeln (' Вы хотите удалить весь список? (да/нет) ');

Readln (answer);

if answer = 'да' then

Begin

q:=First;

p:=nil;

While (q <> nil) do

Begin

p:=q;

q:=q^.Next;

Dispose(p);

End;

First:=Nil;

End;

End

Else

writeln (' список пуст ');

End;

Задачи на замену элементов в линейном однонаправленном списке без головного элемента.

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

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