Упорядочивание массива простым обменом

[A_Orlov]

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

[Don Karleone]

const
  n = 6;
var
  T,i, j: integer;
  A: array [1..n] of integer;

for i:=1 to n-1 do
  for j:=1 to n-i do
    if A[j] > A[j+1] then
                           begin
                              T:=A[j];
                              A[j]:=A[j+1];
                              A[j+1]:=T;  
                           end;