Помогите с двусвязным списком.

[Андркус]

Есть такое задание в двусвязном списке перед каждой буквой А вставить букву Д.

И есть такой код:

program word (input, output);
                type 
                zv2=^pointer2;
                pointer2=record
                elem:char;
                next:zv2;
                priv:zv2
                end;
                var
                vslov,vlan:zv2;
                sym:char;
                procedure vstav(lanka:zv2;buk:char);
                var
                q:zv2;
                begin
                new(q);
                q^.elem:=buk;
                q^.next:=lanka^.next;
                q^.priv:=lanka^.next^.priv;
                lanka^.next^.priv:=q;
                lanka^.next:=q;
                end;
                begin
                new(vslov);
                vslov^.elem:='a';
                vslov^.next:=vslov;
                vslov^.priv:=vslov;
                vlan:=vslov;
                repeat
                read(sym);
                vstav(vlan^.priv,sym);
                until sym = '.';
                write ('enter symbols');
                vlan:=vslov^.next;
                while vlan<>vslov do
                begin
                if vlan^.next^.elem = 'a' then
                begin
                vstav(vlan^.priv, 'd');
                vlan:=vslov;
                end;
                end;
                vlan:=vslov^.next;
                writeln;
                while vlan<>vslov do
                begin
                write(vlan^.elem);
                vlan:=vlan^.next
                end;
                writeln;
                end.

В общем он добавляет букву только вначале, а не по условию. Буду рад любой помощи так как уже всё попробовал. Спасибо!

[Serge_Bliznykov]

Кто же Вас так код форматировал научил?!! Не общайтесь с ним больше! Он Вас плохому учит!

и имя программы word - никуда не годится!

для начала, я бы отформатировал код:

program wordlist(input,output);

type
  zv2 = ^pointer2;
  pointer2 = record
    elem: char;
    next: zv2;
    priv: zv2
  end;

var
  vslov, vlan: zv2;
  sym: char;

procedure vstav(lanka: zv2; buk: char);
var
  q: zv2;
begin
  new(q);
  q^.elem := buk;
  q^.next := lanka^.next;
  q^.priv := lanka^.next^.priv;
  lanka^.next^.priv := q;
  lanka^.next := q;
end;

begin
  new(vslov);
  vslov^.elem := 'a';
  vslov^.next := vslov;
  vslov^.priv := vslov;
  vlan := vslov;
  repeat
    read(sym);
    vstav(vlan^.priv, sym);
  until sym = '.';
  write('enter symbols');
  vlan := vslov^.next;
  while vlan <> vslov do
  begin
    if vlan^.next^.elem = 'a' then
    begin
      vstav(vlan^.priv, 'd');
      vlan := vslov;
    end;
  end;
  vlan := vslov^.next;
  writeln;
  while vlan <> vslov do
  begin
    write(vlan^.elem);
    vlan := vlan^.next
  end;
  writeln;
end.

второе.
Зачем у Вас два списка ?

var
  vslov, vlan: zv2;

[Serge_Bliznykov]

Так. Отбой. Не заметил, что создана тема во Фрилансе.