Односвязные списки в Delphi

[АнастасияТрим]

Писала программу, которая должна создавать новый элементо до эл-та X,но она циклится. Помогите пожалуйста разобраться. либо предложите свое решение. Срочно нужна ваша помощь))

P.S.не запускайте программу

[Stilet]

procedure paste(inf,c:integer);
var p,q,px:sllptr;
i:integer;
begin
p:=pstart;
px:=pstart;
while p<>nil do
begin
if p^.inf=c then
  begin
    p:=px;
    new(q);
    q^.inf:=inf;
    q^.next:=p^.next;
    p^.next:=q;
    break;
  end;
p:=p^.next;
end;
end;

Это если я правильно условие понял.

P.S.не запускайте программу

А что же с ней еще делать?