Помогите, пожалуйста, найти ошибку в программе сортировки стека (по убыванию ) на Си.

Сортировки стека подразумевает использование только функций pop и push, можно toptotop
Стек на основе линейного односвязного списка.
struct TInfo{
int chis;
};
struct TElem { // моделирование стека на основе односвязного списка
TInfo Info; // или struct TInfo Info;
TElem *Next; // или struct TElem *Next; здесь и далее
};
TElem* PushStack(TElem *St, TInfo Info){ // добавить элемент в стек
TElem *Elem= new TElem; //Создаем новый указатель Elem типа структуры TElem. По сути это и есть наш новый элемент; выделяем память для нового элемента
Elem->Info.chis = Info.chis;//Записываем необходимое число
Elem->Next = St;//Проводим связь от нового элемента, к вершине.
return Elem; // Адрес новой вершины
}
TInfo PopStack(TElem **PSt){ //извлечь элемент из стека
TElem *Elem = *PSt;
TInfo Info = Elem->Info;
*PSt = Elem->Next;
delete Elem;
return Info;
}
void TopToTop (TElem **PSt1, TElem **PSt3){
TElem *Elem, *StTop=*PSt1, *Dop=*PSt3;
Elem = StTop;
StTop = StTop->Next; // или StTop=(*StTop).Next;
Elem->Next = Dop;
Dop = Elem;
*PSt1 = StTop; *PSt3 = Dop; // сохранить новые адреса вершин по адресам PSt1 и PSt3
return;
}
//Сортировка
void SortStack(TElem *St){
TElem *Dop=NULL;
TInfo inf;
while (St){
inf=PopStack(&St);
while ((Dop) and (Dop->Info.chis >inf.chis)){
St=PushStack(St,PopStack(&Dop));
}
Dop=PushStack(Dop,inf);
}
}
пример выполнения: 2 3 1 -3 перейдет в 2 1 -3