Стеки (процедура поиска)

procedure tata(s1:List);
var
tp, s2 :list;
z1,z2:TInf;
begin
readln(z1);
readln(z2);
while (S1<>nil)  do
begin
       if (s1^.data=z1) -здесь нашел совпадения 
       then
       begin
       GetMem(tp,sizeof(TList)); - здесь ввел в другой стек
       tp^.next:=s2; - с начала элемент который был 
       tp^.next^.data:=z2; - теперь тот который нужно поставить после найденного 
       s2:=tp;
       s1:=s1^.next; - перехожу на другой элемент
       end
       else s1:=s1^.next; - перехожу на другой элемент 
       GetMem(tp,sizeof(TList));  - а тут я переношу во второй стек те элементы которые находятся между найденными элементами
       tp^.next:=s2;
       s2:=tp;
end;
Print(s2);  readkey; 
после всего этого я получаю два одинаковых стека вот вам еще объявление стека:              
Program Stek;
uses
  crt; {Для использования readkey и clrscr}
type
  Tinf=integer; {тип данных, который будет храниться в элементе стека}
  List=^TList;  {Указатель на элемент типа TList}
  TList=record {А это наименование нашего типа "запись" обычно динамические структуры описываются через запись}
    data:TInf;  {данные, хранимые в элементе}
    next:List;   {указатель на следующий элемент}
  end;