Дан массив A размера N (<= 6). Упорядочить его по возрастанию методом сортировки простым обменом («пузырьковой» сортировкой): просматривать массив, сравнивая его соседние элементы (A1 и A2, A2 и A3 и т. д.) и меняя их местами, если левый элемент пары больше - Pascal(Паскаль)

Program Sort;
 Const
 Nmax = 6;
 Var
  X : Array [1..Nmax] Of Real;
  A : Real;
  n, k, i : Integer;
 
Begin
 Writeln('Введите количество чисел');
 Readln(n);
 Writeln('Введите массив чисел');
 For i := 1 To n Do Read (X[i]);
 { Сортировка }
 For k := 1 To n-1 Do
   For i := 1 To n-1 Do
     If X[i] > X[i+1] Then
       Begin
         A:=X[i];
         X[i]:=X[i+1];
         X[i+1]:=A
       End;
 Writeln('Отсортированный массив чисел:');
 For i:=1 To n Do
 Write (X[i]);
End.