1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

type DynamicArray = array of array of string;

var MyArray1,MyArray2:DynamicArray;

procedure DoSomething();
begin

  // Initialisierung ...
 
  // Das zweite Array bekommt die Werte des ersten Arrays
   MyArray2:=MyArray1;
  

  {Schleife Anfang ...}
  // Mit dem ersten Array wird gearbeitet ...
  // Erstes Array auf Ausgangszustand setzen
   MyArray1:=MyArray2;
  {Schleife Ende}
             
end;					

1:
2:
3:

for i:=0 to Dim1-1 do            // Dim1 = Größe der ersten  Dimension
  for j:=0 to Dim2-1 do          // Dim2 = Größe der zweiten Dimension
    MyArray1[i,j]:=MyArray2[i,j]; // Erstes Array wird wieder auf den Anfangszustand gebracht