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

Графическое представление выполняемых действий дано на рисунке 22.

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

ПРИМЕЧАНИЕ: перед выполнением операции удаления элемента или списка желательно запрашивать у пользователя подтверждение удаления.

Procedure Del_beg_list (Var First: el);

Var

p: el;

answer: string;

Begin

If First <> Nil then

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

writeln (' Вы хотите удалить первый элемент?(да/нет) ');

Readln (answer);

if answer = 'да' then

Begin

p:=First;

If p^.Next = Nil Then {в списке один элемент }

Begin

Dispose (p); {уничтожение элемента }

First:=Nil; {список стал пустым }

End

Else

Begin

P:= first;{адрес удаляемого элемента }

First:=first^.Next;

{адрес нового первого элемента}