Algoritmos Heurísticos de Cobertura de Arcos

MA1:=0;
ME1:=0;
For II:=1 To M1 Do
Begin
Readln(Rede,a,Tip,Noi,I,J,Nof,I1,J1,d,Requerido);
NoInicioLink:=a;
Link[a].From:=Noi;
Link[a].Too:=Nof;
Link[a].Custo:=d;
Link[a].Req:=Requerido;
If Tip=1
Then begin
Link[a].Tipo:=1;
Link[a].Arc.Noi:=NoInicioLink;
NoFinalArco:=NoFinalArco+1;
Link[a].Arc.Nof:= NoFinalArco;
Link[a].ArcContra:=-1;
L[Link[a].Arc.Noi, Link[a].Arc.Nof] := d;
L[Link[a].Arc.Noi, Link[a].Arc.Noi] := 0;
MA1:=MA1+1;
end
Else begin
Link[a].Tipo:=0;
Link[a].Arc.Noi:=NoInicioLink;
NoFinalAresta:=NoFinalAresta+1;
Link[a].Arc.Nof:= NoFinalAresta;
b:=NoFinalAresta;
Link[a].ArcContra:=b;
Link[b].Tipo:=2;
Link[b].From:=Nof;
Link[b].Too:=Noi;
Link[b].Custo:=d;
Link[b].Req:=Requerido;
Link[b].Arc.Noi:= NoAux+1;
Link[b].Arc.Nof:= NoAux+2;
NoAux:=NoAux+2;
Link[b].ArcContra:=a;
ME1:=ME1+1;
L[Link[b].Arc.Noi, Link[b].Arc.Nof] := d;
L[Link[b].Arc.Noi, Link[b].Arc.Noi] := 0;
L[Link[a].Arc.Noi, Link[a].Arc.Nof] := d;
L[Link[a].Arc.Noi, Link[a].Arc.Noi] := 0;
end;
End;
CloseFile(Rede);
If (MA1MA) Or (ME1ME) Then
begin
Application.messagebox('Número de arcos ou arestas incorreto','Programa será fechado!',MB_OK);
Halt;
end;
End;
Procedure DefineInicioEFimDoRoteiro(Edit11,Edit12:TEdit);
// Este procedimento lê os nós especificados para o início e fim da rota
// A partir disso cria um novo arco artificial (FimRota, InicioRota)
// com custo igual ao valor usado como infinito (-MenosInf).
// O arco artificial é criado, mesmo se FimRota = InicioRota.
// Gera um novo arquivo ArqTemp que é igual ao arquivo original,
// só que com um arco a mais (M1+1 links e MA+1 arcos)
// No final da primeira linha de ArqTemp, depois dos dados gerais do grafo,
// aparece o símbolo # e depois os nós inicial e final da rota.
Var Caractere: Char;
II,NoRepetidoi,NoRepetidoj: Integer;
InicioRotaCoordI,InicioRotaCoordJ,
153