Стеки в Паскаль

[mishammm]

всем привет. помогите плиз с задананием: нужно в стеке упорядочить все целые числа по возрастанию:
вот мой код:

uses
  crt;
  type 
  ptr = ^item;
  item=record
  data:string;
  next:ptr;
  end;
  var
     head,current:ptr;
     str:string;
     i:integer;
     n:integer;
     key:char;
     
     procedure push(value:string);
     begin
  new(current);
  current^.data:=value;
  current^.next:=head;
  head:=current;
  end;
  
  procedure pop(var value:string);
  begin
  current:=head;
  value:=head^.data;
 head:=current^.next;
  dispose(current);
  end;
  
  
 procedure sort(var value:string);
var p,q,m:value; s:string;
begin
p:=value;
while p<>nil do
 begin 
 q:=p;m:=q;
 while q<>nil do
  begin
  if m^.data<q^.data then m:=q;
  q:=q^.next
  end;
 s:=p^.data; 
 p^.data:=m^.data; 
 m^.data:=s;
 p:=p^.next
 end
end;

begin

writeln('stack');
head:=nil;
repeat

writeln('1.add element');
writeln('2. sort');
writeln('3.output');
writeln('4.exit');
key:=readkey;
case key of 
 '1': begin
 writeln('enter stack length');
 readln(n);
 for i:=1 to n do
 begin
 writeln('enter data item' , i);
 readln(str);
 push(str);
 end;
 end;
  
  
  '2': begin
  sort(str);
  end;
  
  '3':begin
  while head<>nil do begin
  pop(str);
  write(str, ' ' );
  end;
  end;
  end;
  until key   ='4';
  end.

проблема с самой процедурой сортировки:

procedure sort(var value:string);
var p,q,m:value; s:string;
begin
p:=value;
while p<>nil do
 begin 
 q:=p;m:=q;
 while q<>nil do
  begin
  if m^.data<q^.data then m:=q;
  q:=q^.next
  end;
 s:=p^.data; 
 p^.data:=m^.data; 
 m^.data:=s;
 p:=p^.next
 end
end;

тут что то с переменными начудил не знаю что в самом заголовке процедуры, какую переменную там привязать. спасибо заранее

[mishammm]

вообще процедура сортировки не работает, помогите плиз исправить процедуру я просто не знаю какие нужно подставлять значения переменных в эту процедуру

[Poma][a]

В стеке? Вы уверены? Это бред..

[Stilet]

Думаю так:

procedure sort;
var q,w:ptr s:string;
begin
p:=head;
while p<>nil do
 begin 
 q:=p;
 while q<>nil do
  begin
   if p^.data<q^.data then begin s:=p^.data;p^.data:=q^.data;q^.data:=s;end;
   q:=q^.next
  end;
 end
end;

Это конечно если не считать того что у тебя стэк.

[mishammm]

Сообщение от Stilet

Думаю так:

procedure sort;
var q,w:ptr s:string;
begin
p:=head;
while p<>nil do
 begin 
 q:=p;
 while q<>nil do
  begin
   if p^.data<q^.data then begin s:=p^.data;p^.data:=q^.data;q^.data:=s;end;
   q:=q^.next
  end;
 end
end;

Это конечно если не считать того что у тебя стэк.

да как то так, спасибо, задание так и стояло в стеке, ну думаю тут список больше подойдет