Двусвязный список. Реализовать перемещение по списку, добавление элемента и удаление элемента

unit modul1;
type list=^element;
     element=record
     info: integer;
     link_l,link_r: 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_l:=head;
buf^.link_r:=head;
head:=buf;
new(current);
if head=nil then head^.link_r:=head;
if current<>nil then current:=head;
end;
 
procedure vivod;
begin
buf:=head;
while buf<>nil do begin
write(buf^.info,' ');
buf:=buf^.link_r;
end;
end;
 
end.

uses crt,Slavka1;
begin
head:=nil;
current:=nil;
repeat
clrscr;
vivod;
writeln;
if current<>nil then write(current^.info,' - текущий элемент');
writeln;
writeln('a - перемещение по списку влево');
writeln('s - перемещение по списку вправо');
writeln('1-добавление элемента');
writeln('2-удаление');
writeln('3-выход');
readln(c);
case c of
       '1': begin
            write('ââåñòè äîáàâëÿåìîå çíà÷åíèå: ');
            read(x); add(x); vivod;
            end ;
        's': begin
            if current<>nil then
            if current^.link_r<>nil then current:=current^.link_r
            else
            current:=head;
            end;
        'a':begin
            if current<>nil then
            if current<>head then begin
            s:=current;
            current:=head;
            while current^.link_r<>s do current:=current^.link_r; end
            else
            While current^.link_r<>nil do current:=current^.link_r;
            end;
        '2':begin
            if current<>nil then
            if (current<>head) and (head^.link_r<>current) then begin
            s:=current;
            current:=head;
            while current^.link_r^.link_r<>s do current:=current^.link_r;
            s:=current^.link_r;
            current^.link_r:=current^.link_r^.link_r;
            dispose(s);
            end
            else begin
            if current=head then
            if current^.link_l<>nil then begin
            While current^.link_r^.link_r<>nil do current:=current^.link_r;
            s:=current^.link_r;
            current^.link_r:=current^.link_r^.link_r;
            dispose(s);
            end
            else begin dispose(head); current:=nil; end
            else begin
            s:=head;
            head:=current;
            dispose(s);
            end;
            end;
            end;
       end;
until c='3';
 
end.