[Паскаль]Функция создающая массив по названию

[BackSlash]

Добрый день.
Есть задача.
Даны 3 матрицы: X,Y,Z. Определить в какой из них среднее арифметическое положительных элементов больше.

У меня такой вопрос: как можно упростить программу и написать вместо трёх процедур формирования массива:

procedure getmatrix1;
begin
randomize;
     for i:=1 to row do
     for j:=1 to col do
     X[i,j]:=random(601)-300;
end;
procedure getmatrix2;
begin
randomize;
     for i:=1 to row do
     for j:=1 to col do
     Y[i,j]:=random(601)-300;
end;
procedure getmatrix3;
begin
randomize;
     for i:=1 to row do
     for j:=1 to col do
     Z[i,j]:=random(601)-300;
end;

Одну функцию, которая бы формировала массив в зависимости от названия параметра, с которым я её буду вызывать.

Я вообще в правильном направлении смотрю?

Помогите пожалуйста.
Спасибо.


И с процедурой вывода тоже:

procedure print;
begin
     for i:=1 to row do
     begin
          for j:=1 to col do
          write (p[i,j]:5);
          writeln;
     end;
end;

[VadikV]

Процедуру вывода по аналогии уже сам напиши.

tepe
 myarr = array [1..row, 1..col] of integer;

procedure getmatrix(m : myarr);
var i, j : integer;
begin
     for i:=1 to row do
     for j:=1 to col do
     m[i,j]:=random(601)-300;
end;

var
   X,Y,Z : myarr
begin
   randomize;

   getmatrix(X);
   getmatrix(Y);
   getmatrix(Z);
end;

[BackSlash]

Благодарю .