array als xml speichern

[schwarzer_kaffee]

hallo.

ich habe zwei arrays:

Koordinatenarray: array[1..12,1..3]of integer;
Linienarray: array[1..12,1..3,1..2] of integer;

Koordinatenarray[i+1,1]:=x;
Koordinatenarray[i+1,2]:=y;
Koordinatenarray[i+1,3]:=i+1; <-- id. des Punktes


Linienarray[Linienzahler,1,1] := Koordinatenarray[q,1] ; <--- x-Anfang
Linienarray[Linienzahler,2,1] := Koordinatenarray[q,2] ; <--- y Anfang
Linienarray[Linienzahler,3,1] := Koordinatenarray[q,3]; <---- Anfangspunkt

Linienarray[Linienzahler,1,2] := Koordinatenarray[q,1] ; <----x-Endpunkt
Linienarray[Linienzahler,2,2] := Koordinatenarray[q,2] ; <----y-Endpunkt
Linienarray[Linienzahler,3,2] := q ; <---- Endpunkt


wie kann ich die arrays als xml speichern, so dass die xml etwa so aussieht?

XML-Code:

<graph>
  <Punkte>
    <ein_Punkt>
      <id>1</id>
      <X>24</X>
      <Y>182</Y>
    </ein_Punkt>
    <ein_Punkt>
      <id>2</id>
      <X>81</X>
      <Y>152</Y>
    </ein_Punkt>
    <ein_Punkt>
      <id>3</id>
      <X>33</X>
      <Y>116</Y>
    </ein_Punkt>
  </Punkte>
  <wege>
    <von>
      <begin_id>1</begin_id>
      <beginx>24</beginx>
      <beginy>182</endx>
    </von>
    <bis>
      <begin_id>2</begin_id>
      <endx>81</beginx>
      <endy>152</endx>
    </bis>
    <von>
      <begin_id>2</begin_id>
      <beginx>81</beginx>
      <beginy>152</endx>
    </von>
    <bis>
      <begin_id>3</begin_id>
      <endx>33</beginx>
      <endy>116</endx>
    </bis>
    <von>
      <begin_id>3</begin_id>
      <beginx>33</beginx>
      <beginy>116</endx>
    </von>
    <bis>
      <begin_id>1</begin_id>
      <endx>24</beginx>
      <endy>182</endx>
    </bis>
  </wege>
</graph>

ich weiß jetzt nicht ob ich damit mein problem genau genug beschrieben habe^^
falls es nicht so sein sollte, erkläre ich es noch genauer


vielen Dank

schwarzer_kaffee