Установка указателя на I-й элемент списка Опции

[CKA]

Помогите у меня трабла
Надо написать процедуру добавляющую после i-й строки (список состоит из строк) списка l, копию j-й строки

Написал вот что

procedure add(var q:link; i,j:integer);
var
p1,p,t,t1,r:link;
h:integer;
s1:string;
begin
t:=q;
t1:=q;
h:=1;
new(p1);
while t1<>nil do
      begin
      if h=j then begin s1:=t1^.info; p1^.info:=t1^.info; p1^.next:=nil; end;
      t1:=t1^.next;
      h:=h+1;
      end;
h:=1;
new( r );
r^.info:=s1;
r^.next:=t^.next;
t^.next:=r;
p:=t;
while p<>nil   do
      begin
      writeln(p^.info);
      p:=p^.next;
      end;
end;

но он добавляет все время копию j-й строки после первого элемента
Хелп, хелп, хелп

Тегами будем пользоваться?

Сообщение отредактировано: volvo - 28.04.2005 11:47