Односвязный неупорядоченный список.

[gromgera]

Помогите реализовать удаление соседних элементов для текущего в односвязном неупорядоченном списке. Каким способом удаление вообще записывают?
программа:

uses crt,modul1;
type list=^element;
     element=record
     info: integer;
     link: list;
     end;
begin
 head:=nil;
 current:=nil;
repeat
 clrscr;
 vivod;
 writeln;
  if current<>nil then write(current^.info,' -Tekyshee znachenie');
   writeln;
   writeln('a-Permeshenie v nachalo');
   writeln('s-Peremeshenie v konec');
   writeln('1-Dobyavit novuy element');
   writeln;
   writeln('9-Vihod');
 readln(c);
case c of
       '1': begin
            write('Vvesti dobavlyaemoe znachenie ');
            read(x); add(x); vivod;
            end ;
        's': begin
            if current<>nil then
            if current^.link<>nil then current:=current^.link
            end;
        'a':begin
            if current<>nil then
            if current<>head then begin
            s:=current;
            current:=head;
            while current^.link<>s do current:=current^.link; end
            end;
       end;
until c='9';

end.

модуль:

unit modul1;
type list=^element;
     element=record
     info: integer;
     link: list;
     end;
var head,current,buf,s:list;  i,x:integer; c:char;

procedure add(a:integer);
begin
 new(buf);
 buf^.info:=a;
 buf^.link:=head;
 head:=buf;
 new(current);
  if head=nil then head^.link:=head;
   if current<>nil then current:=head;
end;

procedure vivod;
begin
 buf:=head;
  while buf<>nil do begin
   write(buf^.info,' ');
   buf:=buf^.link;
  end;
 end;

end.

Простите , что программа текстом, не знаю как выделить её в код.

[ViktorR]

Во вложении, очередной раз, предлагаю фрагмент из Т.А. Павловской. Программирование на ЯВУ. Паскаль. Там все прозрачно для работы со списком.
Попробуйте разобраться. У Вас должно получиться...

При поиске элемента списка, вокруг которого надо удалить элементы, можно ввести дополнительные временные указатели, которые ссылаются на предыдущий и текущий элемент (тот который Вы нашли).
Удаление - замена ссылок на актуальные и удаление элемента из динамической памяти.
Вероятно следует написать две п/п - одна для удаления следующего элемента, а одна - для удаления предыдущего.

Как-то так ...