Форум программистов [Powered by Invision Power Board]

Код

procedure DelEl(var p0:TPList); // p0-указатель на удаляемый элемент
var after:TPList;
begin
if p0=head then begin head:=p0^.next;
                      Dispose(p0);
                      head^.prev:=nil;
                      writeln('Элемент перед удаляемым nil');
                      writeln('Элемент после удаляемого ',head^.data);
                end
           else
if p0^.next=nil then begin after:=p0^.prev;
                           Dispose(p0);
                           after^.next:=nil;
                           writeln('Элемент перед удаляемым ',after^.data);
                           writeln('Элемент после удаляемого nil');
                     end
                else
                begin after:=p0^.next;
                      after^.prev:=head;
                      head^.next:=after;
                      Dispose(p0);
                      writeln('Элемент перед удаляемым ',head^.data);
                      head:=head^.next;
                      writeln('Элемент после удаляемого ',head^.data);
                end;
end;