Минимальное остовное дерево методом Примы

var
  Form4: TForm4;
  var C: array[1..6] of integer; C1:array of integer;
      M: array[1..6,1..6]  of integer;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
 
 
 
 
procedure TForm4.Button1Click(Sender: TObject);
Procedure Risovanie;
begin
 
image1.Canvas.pen.color:=clred;
image1.Canvas.Pen.Width:=3;
//1--->2
image1.Canvas.Moveto(37,116);
image1.Canvas.lineto(121,41);
//1---3
image1.Canvas.Moveto(45,141);
image1.Canvas.lineto(206,140);
//2---4
image1.Canvas.Moveto(161,26);
image1.Canvas.lineto(334,27);
//3--->4
image1.Canvas.Moveto(243,120);
image1.Canvas.lineto(330,54);
//3--->5
image1.Canvas.Moveto(250,140);
image1.Canvas.lineto(434,139);
//4--->5
image1.Canvas.Moveto(367,56);
image1.Canvas.lineto(441,121);
 
end;
Var q,w,e,r,t,y,u,i:integer;
begin
 q:=strtoint(Edit1.text);
 w:=strtoint(Edit2.text);
 e:=strtoint(Edit3.text);
 r:=strtoint(Edit4.text);
 t:=strtoint(Edit5.text);
 y:=strtoint(Edit6.text);
 if ((Edit1.text='') or (Edit1.text='') or (Edit3.text='') or (Edit4.text='') or (Edit5.text='') or (Edit6.text=''))
 then  showmessage('Ââåäèòå â ñòðîêè çíà÷åíèÿ')
else
begin
Risovanie;
stringgrid1.cells[1,0]:=inttostr(q);
stringgrid1.cells[2,0]:=inttostr(w);
stringgrid1.cells[3,0]:=inttostr(e);
stringgrid1.cells[4,0]:=inttostr(r);
stringgrid1.cells[5,0]:=inttostr(t);
stringgrid1.cells[6,0]:=inttostr(y);
end;
end;