Сформировать стек, поместить в него компоненты очереди в порядке возрастания значений - Pascal ABC

Формулировка задачи:

помогите, пожалуйста, с программой. нужно сформировать очередь (это я сделала), сформировать стек, поместить в него компоненты очереди в порядке возрастания значений. вот не понимаю как от макс значения к минимальному сделать, через массив? если через массив, то как тогда поместить в него значения из очереди?

uses crt;
type Ochered=record
             data:integer;
             next:^Ochered;   
             end;

{Процедура добавляющая элемент в очередь}
procedure AddElemOchered(var Oc1:^Ochered);
var cur:^Ochered;
    x: integer;
    c: char;
begin
new(oc1);
writeln('Введите целое число, для добавления в очередь');
readln(x);  
oc1^.data:=x;
oc1^.next:=nil;
writeln('Продолжать? Для выхода введите букву "N"');
readln(c);
if (c <> 'N') then begin cur:=oc1;
   repeat
     writeln('Введите целое число, для добавления в очередь');
     readln(x); 
     new(cur^.next);
     cur:=cur^.next;
     cur^.data:=x;
     cur^.next:=nil;
     writeln('Продолжать? Для выхода введите букву "N"');
     readln(c);
   until c='N';
end;
end;

{Процедура вывода очереди в прямом порядке}
procedure printOchered(Oc1:^Ochered);
var cur:^Ochered;
begin
Writeln('Ochered:');
cur:=oc1;
  repeat
  write(cur^.data,' ');
  cur:=cur^.next;
  until (cur^.next = nil);
  writeln(cur^.data);
end;

var  och:^Ochered;
begin
clrscr;
addElemOchered(och); 
printOchered(och);
readkey;
end.

Решение задачи: «Сформировать стек, поместить в него компоненты очереди в порядке возрастания значений»

textual
                            Листинг программы 
                        

                             if X<TempMin then
  begin
    Push(Och, TempMin);
    TempMin:=X;
  end
  else Push(Och, X);
                        