СТЕК, сортировка стека Опции

[Dunkel_L]

Всем доброе время суток
Вот есть стек

 
program l_2;

Uses CRT;
type ptr=^node;
     node=record
        info:integer;
        link:ptr;
     end;
var
   top,q,r:ptr;
   a,b,c:word;

procedure Push(n:integer);
var
   p:ptr;
begin
    new(p);
    p^.info:=n;
    p^.link:=top;
    top:=p;
end;
function Pop:integer;
var
   l:ptr;
begin
   if top <> nil then
   begin
      l:=top^.link;
      Pop:=top^.info;
      dispose(top);
      top:=l;
   end
   else begin
      Writeln('Ввод не верен');
      Pop:=0;
   end;
end;
procedure menu;
begin
   writeln;
   writeln;
   write('   Введите команду и нажмите ВВОД:   ');
   read(a);
   if a=1 then
      begin
         write('   Введите число:  ');
         readln(b);
         Push(b);
         menu;
      end;
   if a=2 then
      begin
         writeln;
         writeln('   Стек был очищен' );
         readln©;
         if c=1 then
         begin
            write('   Введите число:  ');
            readln(b);
            Push(b);
         end;
         if c=2 then
         begin
            write(pop);
         end;
         menu;
      end;
   if a=3 then
      begin
         q:=top;
         while q<>nil do
         begin
            write(q^.info,  ' ');
            q:=q^.link;
         end;
         menu;
      end;
   if a=4 then
      begin
         while top<>nil do
         begin
            r:=top^.link;
            dispose(top);
            top:=r;
         end;
      end;
end;
begin
clrscr;
   writeln('   Ввод числа стека:               нажмите 1 ');
   writeln('   Удаление числа из стека:        нажмите 2 ');
   writeln('   Вывод стека на экран:           нажмите 3 ');
   writeln('   Выход из программы:             нажмите 4 ');
menu;
end.

Нужна любая сортировка по возростанию.HELP!!!

[Lapp]

Вот есть стек
...
Нужна любая сортировка по возростанию.HELP!!!

Не понял.. Ты хочешь сортировать сам стек?
Но зачем?? Весь смысл стека сразу теряется.. Или это особый стек "с полем тяжести"? Но тогда само слово "стек" неуместно, мне кажется.
Пожалуйста, объясни.

[Dunkel_L]

если мы введем числа 1 3 2 5 4 то стек выведет на экран 4 5 2 3 1
а нам нужно что бы после стека было 5 4 3 2 1

[Bokul]

Реализация сортировки стека

[Dunkel_L]

мне нужно сортировка без дополнительного стека

[volvo]

а нам нужно что бы после стека было 5 4 3 2 1

Тогда это не стек (LIFO), а список... Давай не будем морочить голову, пользуйся структурами данных, которые подходят для твоей задачи!

P.S. В программке - то неограниченной глубины рекурсия... Переделай ее, а то начнет вылетать по Stack Overflow, если с ней поработать подольше...