Двухсвязный список, добавление элемента в указанную позицию

[redmonkey]

Здравствуйте помогите пожалуйста дописать процедуру, сам разобраться никак не могу, нужно написать процедуру которая бы добавляла в двухсвязный список элемент в указанную позицию.

procedure AddElemPos(var z:list; pos,y:integer);
var p,q:List;
    i:integer;
begin
  if pos<1 then
    exit;
  if z=nil then
  begin
    write('Список пуст!');
    exit;
  end;
  i:=1;
  New(q);
  p:=z;
  while (p<>nil) and
  while y>p^.next^.data do
    p:=p^.next;
    q^.next:=p^.next;
    q^.data:=y;
    p^.next:=q;
end;

никак не пойму, данная процедура вставляет элемент после первого элемента, надо как-то дописать чтоб вставляла после элемента с номером pos, помогите плиз.

[Stilet]

Тут уже обсуждалось такое. вот хотя бы здесь:http://www.programmersforum.ru/showthread.php?t=87357
Пройдись поиском и посмотри как народ решает.

[redmonkey]

все дописал сам, вопрос отпал вот мало ли кому понадобится, пойду сдавать завтра

procedure AddElemPos(var z:list; pos,y:integer);
var p,q:List;
    i:integer;
begin
  if pos<1 then
    exit;
  if z=nil then
  begin
    write('Список пуст!');
    exit;
  end;
  i:=1;
  New(q);
  p:=z;
  while (p<>nil) and (i<>pos) do
  begin
    p:=p^.next;
    inc(i);
  end;
  if i=pos then
   begin
    q^.next:=p^.next;
    q^.data:=y;
    p^.next:=q;
end;

[Stilet]

пойду сдавать завтра

Удачного отмечания после сдачи )