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

Program pr35 (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.