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

type
  Tarray=array[1..10] of integer;  <<<<<---- 
...
  var bzw. private abschnitt der form
  arrayA,ArrayB,arrayC:Tarray;

...
procedure machwas(myArray:Tarray);
  begin
    ...
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  machwas(arrayA);
  machwas(arrayB);
  machwas(arrayC);
end;					

1:
2:
3:
4:

procedure machwas(myArray:array of integer);  
  begin  
    ...  
  end;					

1:
2:
3:
4:
5:
6:

array [1..3] of array of irgendeinrecord;


for k := 1 to 3 do
   for i := 0 to maxI do 
     ....