Двусвязный Кольцевой список, Поставлю вопрос по-другому Опции

[Everveit]

Надо добавить элемент вслед за к-ым. Что здесь не правильно? Сейчас он ставит его вслед за к-ым, но при этом удаляет всё, что после него.

Procedure AddNewNode (var p:Dlist; info,k:integer);
var
q:Dlist;
i:integer;
begin
i:=1;
New(q);
if (p = nil) then
begin
writeln ('vvedite info:');
readln(info);
q^.info:=info;
q^.next:=q;
q^.prev:=q;
p:=q;
exit;
end
else begin
writeln ('vvedite k:');
readln (k);
q:=p^.next;
while (q<>p) and (i<k) do
begin
q:=q^.next;
i:=i+1;
end;
if i<>k then
writeln ('nepravilniy nomer')
else begin
if (i=k) then begin
writeln ('vvedite info:');
readln(info);
q^.info:=info;
q^.prev:=p^.prev;
q^.next:=p;
p^.prev^.next:=q;
p^.prev:=q;
end;
end;
end;
end;

[volvo]

Так работает?

procedure AddNewNode(var p:Dlist; info:integer);
{ Зачем тебе передавать К, если ты все равно его запрашиваешь? }

var
  q, pp:Dlist;
  i, k:integer;

begin
  if p = nil then begin
    New(q);
    writeln ('vvedite info:');
    readln(info);
    q^.info :=info;
    q^.next := q;
    q^.prev := q;
    p := q; { Здесь Exit был лишним }
  end

  else begin
    writeln('vvedite k:');
    readln(k);

    q := p^.next; i := 1;
    if p = q then dec(i);
    while (q <> p) and (i < k - 1) do begin
      q := q^.next;
      i := i + 1;
    end;

    if i <> k - 1 then writeln ('nepravilniy nomer')
    else begin
      new(pp);
      writeln('vvedite info:');
      readln(info);
      pp^.next := q^.next;
      pp^.prev := q;
      pp^.next^.prev := pp;
      q^.next := pp;
      pp^.info := info;
    end;
  end;
end;