Визуализация алгоритма Шелла

[Electroflower]

Ребят, помогите пожалуйста с визуализацией алгоритма.
С канвой никогда не работала, не знаю как подступиться

procedure TForm1.FormCreate(Sender: TObject);
var n,i:integer;
begin
n:=9;
randomize;
for i:=1 to n do
begin
R[i]:=random(99)-10;
Edit1.Text:=Edit1.Text+'  '+inttostr(R[i]);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j,h,x,k,n:integer;
begin
n:=9;
edit2.Text:='' ;
h:=n div 2;
repeat

begin
for i:=1 to (n-h) do
begin
if R[i]>R[i+h] then
begin
x:=R[i];
R[i]:=R[i+h];
R[i+h]:=x;
end;
end;
h:=h div 2
end;
until h=1;
for i:= 2 to n do
begin
x:=R[i];
k:=0;
for j:=i-1 downto 1 do
if R[j]<=R[i] then
begin
k:=j;
break;
end;
for j:=i downto k+1 do
R[j]:=R[j-1];
R[k+1]:=x;
end;
for i:=1 to n do
edit2.Text:=edit2.Text+'  '+inttostr(R[i]);
end;

[Electroflower]

Тема закрыта, я справилаась, поздравьте)