Потеря переменной при выходи из процедуры

[Kaz]

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

[pu4koff]

а не локальные ли переменные вы там используете?

[Kaz]

Нет. Использую переменную из основной программы.
Вот сама процедура. В ней я создаю стек, другие процедуры входящие в неё правильные. т.к. используются в создание стека t1 и работают нормально. Второйже стек t2 обнуляется.

procedure ChangeStack(var N:integer; t1,t2:pElem);
var
 flag:boolean;
 i:string;
begin
 flag:=false;
 while t1<>nil do
  begin
   if Length(t1.info)=N then
    begin
     if not flag then
      begin
       i:=t1.info;
       CreateList (t2,i);
       flag:=true;
      end
     else
      begin
       i:=t1.info;
       AddTop (t2,i);
      end;
    end;
    t1:=t1^.next;
  end;
end;

[Jeni]

А что за тип pElem? Может стоит написать так:

procedure ChangeStack(var N:integer; var t1,t2: pElem);