Напишите вариант способа пузырька, который заканчивает работу, если на следующем

Begin
   var n := 10;
   var a := ArrRandom(n, -50, 50); 
   
   println('Начальный массив:');
   a.Println;
   
   var noChanges: boolean;
   repeat
      noChanges := true;
      for var i := 0 to n - 2 do
         if a[i] gt; a[i + 1] then
         begin
            swap(a[i], a[i + 1]);
            noChanges := false;
         end;
   until noChanges;
   
   println('Отсортированный массив:');
   a.Println;
end.