Сортировка массива «пузырьком» по возрастанию- Pascal(Паскаль)

{ сортировка массива "пузырьком" по возрастанию }
const
  n = 10; { количество элементов в массиве }

var
  a: array [1 .. n] of integer;
  i, j, buf: integer;

begin
  { Заполняем массив случайными целыми числами из диапазона от 0 до 9 и выводим массив на экран }
  for i := 1 to n do
  begin
    a[i] := random(10);
    write(a[i], ' ');
  end;
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if a[i] > a[j] then
      begin
        buf := a[i];
        a[i] := a[j];
        a[j] := buf;
      end;
  writeln;
  writeln('Массив после сортировки пузырьковым методом: ');
  for i := 1 to n do
    write(a[i], ' ');

end.