Блок схема Delphi

[Kinder74]

помогите сделать блок схему.

procedure TForm1.BitBtn1Click(Sender: TObject);
var mass:array[1..10,1..10] of integer;
i,j,min,k,k1:integer;
C,C0:set of 1..7;
begin
self.Repaint;
if (Edit1.Text='0') or (Edit2.Text='0') or (Edit3.Text='0')
or (Edit4.Text='0') or (Edit5.Text='0') or (Edit6.Text='0')
or (Edit7.Text='0') or (Edit8.Text='0') or (Edit9.Text='0')
or (Edit10.Text='0') or (Edit11.Text='0') or (Edit12.Text='0')
then ShowMessage('Заполните пустые поля!') else
begin
mass[1,2]:=StrToInt(Edit1.Text);
mass[2,1]:=mass[1,2];
mass[2,3]:=StrToInt(Edit2.Text);
mass[3,2]:=mass[2,3];
mass[2,4]:=StrToInt(Edit3.Text);
mass[4,2]:=mass[2,4];
mass[4,7]:=StrToInt(Edit4.Text);
mass[7,4]:=mass[4,7];
mass[7,6]:=StrToInt(Edit5.Text);
mass[6,7]:=mass[7,6];
mass[4,7]:=StrToInt(Edit4.Text);
mass[7,4]:=mass[4,7];
mass[7,6]:=StrToInt(Edit5.Text);
mass[6,7]:=mass[7,6];
mass[3,4]:=StrToInt(Edit6.Text);
mass[4,3]:=mass[3,4];
mass[1,4]:=StrToInt(Edit7.Text);
mass[4,1]:=mass[1,4];
mass[3,5]:=StrToInt(Edit8.Text);
mass[5,3]:=mass[3,5];
mass[4,5]:=StrToInt(Edit9.Text);
mass[5,4]:=mass[4,5];
mass[1,6]:=StrToInt(Edit10.Text);
mass[6,1]:=mass[1,6];
mass[5,6]:=StrToInt(Edit11.Text);
mass[6,5]:=mass[5,6];
mass[1,5]:=StrToInt(Edit12.Text);
mass[5,1]:=mass[1,5];
C:=[2,3,4,5,6,7];
C0:=[1];
k:=1;
While C<>[] do
begin
Min:=32000;
for i:=1 to 7 do
for j:=1 to 7 do
if (mass[i,j]<Min) and (i<>j) and (mass[i,j]<>0) and (i in C0) and (j in C) then
begin
k1:=j;
k:=i;
Min:=mass[i,j];
end;
C0:=C0+[k1];
C:=C-[k1];
GreenLine(k,k1,clgreen);
end;
end;
end;