Здравствуйте, ivanzh, Вы писали:


I>А как же иначе провести вывод очереди?

void __fastcall TForm1::Button3Click(TObject *Sender)
{
    int temp;
    if (first == NULL)
            Memo1->Lines->Add("Ochered pusta");
    else    //sortirovka
            //while (first!= NULL)
            for(T* i=first; i!=NULL && i->next!=NULL; i=i->next) // создаем временную переменную
                {
                        if(first->a>first->next->a)
                        {
                            temp=first->a;
                            first->a=first->next->a;
                            first->next->a=temp;
                        }
                        //first =first->next; переход на следующий элемент перенесен в for.
                }  //vivod
    for(T* i=first; i!=NULL && i->next!=NULL; i=i->next)
                {
                        Memo1->Lines->Add(IntToStr(first->a)+' '+(first->ch));
                        //first =first->next;
                }
}

P.S. не знаю какого типа переменная first. поэтому использовал T*