Выполнить сортировку массива методом "пузырька"

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, System.Generics.Collections,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  TArrayHelper = record helper for TArray<Integer>
  private
    procedure Swap(const Index1, Index2: Integer); inline;
  public
    function ToString: string;
    procedure Random(const ACount: Integer = 10);
    procedure Sort;
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
{ TArrayHelper }
 
function TArrayHelper.ToString;
var
  i: Integer;
begin
  for i := Low(Self) to High(Self) do
    if i = 0 then
      Result := Result + Self[i].ToString
    else
      Result := Result + ',' + Self[i].ToString;
  Result := '[' + Result + ']';
end;
 
procedure TArrayHelper.Random;
var
  i: Integer;
begin
  if ACount < 0 then
    Exit;
  SetLength(Self, ACount);
  for i := Low(Self) to High(Self) do
    Self[i] := System.Random(100);
end;
 
procedure TArrayHelper.Sort;
var
  i, j: Integer;
begin
  if Length(Self) = 0 then
    Exit;
  for i := Low(Self) to High(Self) do
    for j := Low(Self) to High(Self) - i do
      if (Self[j] > Self[j + 1]) then
        Swap(j, j + 1);
end;
 
procedure TArrayHelper.Swap;
begin
  Self[Index1] := Self[Index1] xor Self[Index2];
  Self[Index2] := Self[Index1] xor Self[Index2];
  Self[Index1] := Self[Index1] xor Self[Index2];
end;
 
procedure TForm2.Button1Click(Sender: TObject);
var
  a: TArray<Integer>;
begin
  a.Random;
  ShowMessage(a.ToString);
  a.Sort;
  ShowMessage(a.ToString);
end;
 
end.