Algoritmos Heurísticos de Cobertura de Arcos

egin
AssignFile(Rede,ArqNome);
Reset(Rede);
Readln(Rede);
For II:=1 To M Do
Begin
Readln(Rede,a,Link,Noi,I,J,Nof,I1,J1,d,Freq1,Freq2);
If Link=0
Then OrientaAresta(Freq1,Freq2,J*CompArco,I*CompArco,J1*CompArco,I1*CompArco,PaintBox1)
else Freq1:=Freq1-1;
NumCopias:= Freq1+Freq2;
If NumCopias >0 Then
For k := 1 to NumCopias do
begin
AchaCoordCopiak(k,J*CompArco,I*CompArco,J1*CompArco,I1*CompArco,xc1,yc1,xc2,yc2);
CriaCopia(Freq1,Freq2,xc1,yc1,xc2,yc2,PaintBox1);
end;
End;
CloseFile(Rede);
end;
Procedure MovimentaArco(Ordem,x1,y1,x2,y2:Integer;PaintBox1:TPaintBox);
// Cria movimento num link tipo arco
var i,xs,ys,xt,yt,dx,dy,LargSeta: Integer;
ponto1x,ponto2x,ponto3x,ponto1y,ponto2y,ponto3y:Integer;
begin
PaintBox1.Canvas.Pen.Width:=PenaDiag + 1;
PaintBox1.Canvas.Pen.Color:=clBlue;
If Ordem=3 Then PaintBox1.Canvas.Pen.Color:=ClRed;
If Ordem=2 Then PaintBox1.Canvas.Pen.Color:=ClYellow;
If Ordem=1 Then PaintBox1.Canvas.Pen.Color:=clMaroon;
If ((x1 = x2) or (y1 = y2)) and (BotaoAcionado0)
Then PaintBox1.Canvas.Pen.Width:=PenaNormal+2;
xs:=x1;
ys:=y1;
PaintBox1.Canvas.MoveTo(xs,ys);
For i:= 1 to 20 do
begin
//xt:=Round((x2-x1)*0.05)+xs;
//yt:=Round((y2-y1)*0.05)+ys;
xt:=Round((x2-x1)*0.05*i)+x1;
yt:=Round((y2-y1)*0.05*i)+y1;
If ((abs(x2-xt)