сортировка стека (код прилагаеться)

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;