Программа расположения  по возрастанию  элементов заданного ряда чисел -Pascal(Паскаль)

Program pr27 (Input, Output);         
Var         
X             : Array [1..20] Of Real;       
N             : Integer;              
i, j  : Integer;        
Y             : Real;    
 
Begin    
 
WriteLn ('PASCAL: Расположение по возрастанию чисел X[1],X[2], ...X[N].');
Write ('Введите число сортируемых элементов:  N = ');               
ReadLn (N);         
WriteLn ('Введите элементы массива:');     
For i := 1 To N Do              
Begin    
Write ('X[', i, '] = ');             
ReadLn (X [i] );   
End;      
 
For i := 1 To N - 1 Do                      
For j := i + 1 To N Do                        
If X [j] < X [i] Then                        
Begin    
Y := X [j];             
X [j] := X [i];        
X [i] := Y;             
End;      
WriteLn;              
 
WriteLn ('Отсортированный массив:');       
For i := 1 To N Do              
Write (X [i] : 5: 1);              
 
ReadLn;
End.