Pointer auf array

[blablab]

Wie würdet ihr das dann machen?

Ich hab solche arrays

array1: array[0..19] of array[0..3] of array[0..2] of Double = (((...)));
array2: array[0..5] of array[0..2] of array[0..2] of Double = (((...)));
array3: array[0..20] of array[0..2] of array[0..2] of Double = (((...)));

und arbeite die so ab:

Delphi-Quellcode:

for i := 0 to Pred(Length(array1)) do begin
   for j := 0 to Pred(Length(array1[0])) do begin
      Koordinate(array1[i][j][0], array1[i][j][1], array1[i][j][2]);
   end;
end;

for i := 0 to Pred(Length(array2)) do begin
   for j := 0 to Pred(Length(array2[0])) do begin
      Koordinate(array2[i][j][0], array2[i][j][1], array2[i][j][2]);
   end;
end;

for i := 0 to Pred(Length(array3)) do begin
   for j := 0 to Pred(Length(array3[0])) do begin
      Koordinate(array3[i][j][0], array3[i][j][1], array3[i][j][2]);
   end;
end;

und da es insgesamt mehr als nur 3 arrays sind würde ich die gerne alle auf einmal abarbeiten. In etw so:

Delphi-Quellcode:

for i := 0 to 2 do begin
   for j := 0 to Pred(Length(alles[i])) do begin
      for k := 0 to Pred(Length(alles[i][j])) do begin
         Koordinate(alles[i][j][k][0], alles[i][j][k][1], alles[i][j][k][2]);
      end;
   end;
end;

Oder wenn ich aus diesen arrays
array1: array[0..19] of array[0..3] of array[0..2] of Double = (((...)));
array2: array[0..5] of array[0..2] of array[0..2] of Double = (((...)));
array3: array[0..20] of array[0..2] of array[0..2] of Double = (((...)));
diese hier mache
array1: array[0..57] of array[0..2] of Double = ((...));
array2: array[0..10] of array[0..2] of Double = ((...));
array3: array[0..40] of array[0..2] of Double = ((...));
Also, dass ich ein 2-dimensionales array draus mache und nur noch die 1. Dimension unterschiedlich ist, die zweite nicht.
geht es dann?