Problem Pfeildaten für dijkstra (random) erstellen

[pagan1900]

Ich möchte aus vereinfachungsgründen das das Programm
einen digraphen erstellt für mein programm

wie ihr seht, hab ich Anf,Ende eines jeden pfeils und die kosten
per random bestimmt.
Ich habe bisher verhindert, das Anfangsknoten,Endknoten und die kostenwerte NICHT null werden können
(sonst hätte ich probleme beim zeichnen! besonders was ANF,Ende angeht!, die ja die punkte für die pfeile darstellen)
so weit so gut!

NUR ich muss jetzt und da hab ich das problem
verhindern das 2x oder mehrmals der selbe"pfeil" abgespeichert wird!
Würde es nur ums zeichnen gehen währe es ja kein problem, dann würde das programm einfach denselben übermahlen!
Nur das problem aber ist verherend, wenn mann mit solchen daten den Dijkstra berechnen soll!

wist ihr eine lösung?

ein beispiel für das problem:

Anf [1,2.4,1]
Ende [2,1,3,2]
Kosten[5,6,2,1]

Wie ihr seht kommt Pfeil (1->2) 2x vor und dann noch mit unterschidlichen Kosten, dieses muss ich verhindern,
also wenn das auftritt so solange
dieses erstellen bis

Anf [1,2.4,5]
Ende [2,1,3,2]
Kosten[5,6,2,1]

alle pfeile unterschidlich sind.

Delphi-Quellcode:

//anf,Ende,Kosten sind vom typ: TPfeil=Array[1..max_m] of integer;
 function anf_bestimmen:word;
  var local:word;
  begin
   repeat
     local:=random(n+1);
   until local >0;
   result:=local;
  end;

 function ende_bestimmen:word;
  var local:word;
  begin
   repeat
     local:=random(n+1);
   until local >0;
   result:=local;
  end;

 procedure a_b_vergleich(var deranfang,dasEnde:word);
  var local_a,local_b:word;
  begin
    repeat
      local_a:=anf_bestimmen;
      local_b:=ende_bestimmen;
    until local_a<>local_b;
    derAnfang:=local_a;
    dasEnde:=local_b;
  end;

 procedure a_b_Pfeilnur1mal(a,b:TPfeil;var a1,b1:word);
  var derAnfang,dasEnde:word;
      locali:integer;
      tempa,tempb:word;
  begin
   repeat
    for locali:= 1 to m do
     begin
       a_b_vergleich(deranfang,dasEnde);
       if ((derAnfang <>a[locali]) and (dasEnde <> b[locali])) or  
         ((dasEnde <> a[locali])and(derAnfang <> b[locali]))then
        begin  tempa:=derAnfang;
               tempb:=dasEnde; end;
     end;
   until ((derAnfang <>a[locali]) and (dasEnde <> b[locali])) or ((dasEnde <>  
         a[locali])and(derAnfang <> b[locali]));
    a1:=tempa;
    b1:=tempb;
  end;