Двусвязный список

[Андркус]

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

program word (input, output);
                type 
                zv2=^pointer;
                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.

Но он добавляет букву D вначало и всё, прошу помощи.

[alexcoder]

Андркус, обращайтесь e-mail: informatik101@mail.ru
Telegram: @alexcoder1
vk.com/alexcoder1

[Pvt]

обращайтесь pvt.marat@yandex.ru

[Larboss]

ТЗ, срок, бюджет: larbossfreelance@yandex.ru Метка: freelance Указывайте ссылку на тему форума.