Визуализация сортировки массива пузырьком

 const n = 7;
var
  Form1: TForm1;
  i,j,k,g: integer;
  a: array [0..n] of integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   label1.Caption := 'Размер ';
   label2.Caption := 'Массив';
   label3.Caption := Inttostr(n);
   label4.Caption := ' ';
   randomize;
   for i := 0 to n do
   begin
    a[i] := -20 + random(50);
    label4.Caption := label4.Caption + ' ' + inttostr(a[i]);
    Series1.AddXY(0.1*i,a[i],'',clPurple);
   end;
   button1.Caption := 'Сортировка';
   label5.Caption := 'Отсортированный массив';
   label6.Caption := ' ';
   memo1.Text:= '';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
for i := 0 to n do
for j := 0 to n -1 do
if (a[j] > a[j+1]) then
begin
   k := a[j+1];
   a[j+1] := a[j];
   a[j] := k;
   series1.Clear;
   for g := 0 to n do
   begin
   sleep(200);
   Application.ProcessMessages;
    Memo1.Text := Memo1.Text + ' ' + inttostr(a[g]);
    Series1.AddXY(0.1*i,a[g],'',clPurple); //вот тут столбики лепятся друг на друга
   end;
   Memo1.Text := Memo1.Text + #13#10;
end;
label6.Caption := ' ';
for i := 0 to n do
begin
 sleep(200);
   Application.ProcessMessages;
 label6.Caption := label6.Caption + ' ' + inttostr(a[i]);
end;
end;
 
end.

  DoSortStep();
  j:=j+1;
  if j>i-1 then
  begin
    j:=0;
    i:=i+1;
  end;
  if i>n then timer1.enabled := false;

procedure TForm1.Btn1Click(Sender:TObject);
begin
  i:=0;
  j:=0;
  timer1.enabled := true;
end;

const n=8;
var
  Form1: TForm1;
   a: array [1..n] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
label1.Caption := 'Размер массива='+inttostr(n);
label2.Caption := 'Исходный массив';
Label3.Caption:='';
randomize;
for i := 1 to n do
 begin
  a[i] := -20 + random(50);
  label3.Caption := label3.Caption+'  '+inttostr(a[i]);
  Series1.AddXY(i,a[i],'',clPurple);
 end;
button1.Caption := 'Сортировка';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k,x:Integer;
begin
for i:=1 to n do
for j:=1 to n-1 do
if a[j]>a[j+1] then
 begin
  x:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=x;
  sleep(500);
  Application.ProcessMessages;
  Series1.Clear;
  for k:=1 to n do
     begin
      Memo1.Text := Memo1.Text + ' ' + inttostr(a[k]);
      Series1.AddXY(k,a[k],'',clPurple);
     end;
    Memo1.Text := Memo1.Text + #13#10;
   end;
  end;