Algoritmos Heurísticos de Cobertura de Arcos

Procedure GravaArq(ListBox1:TListBox;
Label9,Label10,Label11: Tlabel;
GroupBox2:TGroupBox);
Var Linha, Compl: String;
ArcR, ArcNR, MAnR, Sorteio: Integer;
Begin
{Gerar o Arquivo Contendo o Grafo *****************}
If Copy(ArqNome,Length(ArqNome)-3,1)='.'
Then ArqNomeTxt := ArqNome
Else ArqNomeTxt := ArqNome+'.Txt';
AssignFile(Rede,ArqNomeTxt);
ReWrite(Rede);
WriteLn(Rede,M,' ',N,' ',NL,' ',NC,' ',MA,' ',ME,' ',CppCost,' ',AddCost);
NomeAbr := ArqNome;
If Length(NomeAbr) > 22
Then Delete(NomeAbr,1,Length(NomeAbr)-22);
NomeAbr := Copy(NomeAbr,1, Length(NomeAbr)-4);
GroupBox2.Caption := 'Grafo ativo : ...'+NomeAbr;
Label9.Caption := 'Nós: '+IntToStr(N);
Label10.Caption := 'Arcos: '+IntToStr(MA);
Label11.Caption := 'Arestas: '+IntToStr(ME);
GroupBox2.Update;
ListBox1.enabled := True;
ListBox1.Color := clWindow;
ListBox1.Items.Clear;
ListBox1.Items.Add ('Links='+IntToStr(M)+' Nodes='+IntToStr(N));
ListBox1.Items.Add (' CppCost='+IntToStr(CppCost)+' AddCost='+IntToStr(AddCost));
MAnR:=Round((M*PAnR)/100.0); //Num de arcos não-rqueridos a serem marcados
If MAnR>MA then MAnR:=MA;
ArcR:=0; //Num provisorio de arcos requeridos
ArcNR:=0; // " " " não "
For I:=1 To M Do
Begin
K:=2*I-1;
If Link[K].Tipo=-1
Then K:=Link[K].ArcContra;
If (Link[K].Tipo=0) And (Link[K].Too