Algoritmos Heurísticos de Cobertura de Arcos

FimRotaCoordI,FimRotaCoordJ,Requerido: Integer;
a,Tip,Noi,I,J,Nof,I1,J1,d,JJ: Integer;
N1,N2,N3,Custo: Integer;
St1:String[1];
begin
InicioRota:=StrToInt(Form1.Edit11.Text);
FimRota:=StrToInt(Form1.Edit12.Text);
Assign(Rede,ArqNome);
Reset(Rede);
ArqTemp:='ArqTemp.Txt';
AssignFile(RedeTemp,ArqTemp);
ReWrite(RedeTemp);
ReadLn(Rede,M1,N,NL,NC,MA,ME);
WriteLn(RedeTemp,M1+1,' ', N,' ',NL,' ',NC,' ',MA+1,' '
,ME,' ',' # ',InicioRota,' ',FimRota);
InicioRotaCoordI:=-1;
InicioRotaCoordJ:=-1;
FimRotaCoordI:=-1;
FimRotaCoordJ:=-1;
Rural:=false;
For II:=1 To M1 Do
Begin
Requerido:=1;
Read(Rede,a,Tip,Noi,I,J,Nof,I1,J1,d);
St1:=' ';
JJ:=0;
Repeat
JJ:=JJ+1;
Read(Rede,St1);
Until (St1='$') or (JJ>50);
If St1 = '$' then Read(Rede,Requerido);
If Requerido=0 Then Rural:=true;
ReadLn(Rede);
N1:=Noi;
Writeln(RedeTemp,a,' ',Tip,' ',Noi,' ',I,' ',J,' '
,Nof,' ',I1,' ',J1,' ',d, ' ',Requerido);
N1:=Noi; // Identificando as coordenadas do InicioRota, FimRota
If Noi=InicioRota then
begin
InicioRotaCoordI:=I;
InicioRotaCoordJ:=J;
end;
If Nof=FimRota then
begin
FimRotaCoordI:=I1;
FimRotaCoordJ:=J1;
end;
If (Tip=0) and (Noi=FimRota) then
begin
FimRotaCoordI:=I;
FimRotaCoordJ:=J;
end;
If (Tip=0) and (Nof=InicioRota) then
begin
InicioRotaCoordI:=I1;
InicioRotaCoordJ:=J1;
end;
End;
If (InicioRotaCoordI=-1) Or (FimRotaCoordI=-1) Then
begin
Application.messagebox('Inicio ou Final especificado para a rota inválido','Programa será
fechado!',MB_OK);
Halt;
end;
Writeln(RedeTemp,a+1,' 1 ',FimRota,' ',FimRotaCoordI,' ',FimRotaCoordJ,' '
154