我想弄成這樣,但不懂
procedure row(x);  // 他好像一定要我先宣告 x,但又不能是x: array[1..9] of integer;
x: array[1..9] of integer //一旦上面宣告了(string/integer),這裡就沒法行了
(單單是 x[i]:random(9)+1 也不行// x 是string(integer 又是不行))

我想要的效果是
begin
row(a); //出現a: array[1..9] of integer
row(b); //出現b: array[1..9] of integer
row(c): //出現c: array[1..9] of integer

如果不行的話
便要

procedure rowA;
a: array[1..9] of integer 
procedure rowB;
b: array[1..9] of integer 
procedure rowC;
c: array[1..9] of integer 
procedure rowD;
d: array[1..9] of integer