PROGRAM SORTTEST(INPUT,OUTPUT);                   
 CONST N=16;                                      
 VAR A:ARRAY[1..N]OF INTEGER;                     
                                                  
 PROCEDURE GEN;                                   
  VAR I:INTEGER;                                  
      D:TEXT;                                     
 BEGIN                                            
  OPEN(D,8,3,"D,S,R");                            
  FOR I:=1 TO N DO READ(D,A[I]);                  
  CLOSE(D)                                        
 END;                                             
                                                  
 PROCEDURE OUT;                                   
  VAR I:INTEGER;                                  
      P:TEXT;                                     
 BEGIN                                            
  OPEN(P,4,0,"");                                 
  FOR I:=1 TO N DO WRITE(P,A[I]:3);               
  WRITELN(P);                                     
  CLOSE(P)                                        
 END;                                             
                                                  
 PROCEDURE BUBBLE;                                
  VAR I,J,X:INTEGER;                              
 BEGIN                                            
  FOR I:=1 TO N-1 DO                              
   BEGIN                                          
    FOR J:= 1 TO N-I DO                           
     IF A[J+1]<A[J] THEN                          
      BEGIN                                       
       X:=A[J];A[J]:=A[J+1];A[J+1]:=X;            
      END;                                        
    OUT                                           
   END                                            
 END;(*BUBBLE*)                                   
                                                  
BEGIN                                             
 GEN;OUT;BUBBLE                                   
END.