Подскажите, как создать процедуру формирования и вывода массива с заданными параметрами? У меня получается только с массивами, заданными в самой программе, то есть процедура без параметров:

procedure Vivod;
begin
     for i:=1 to n do begin
         for j:=1 to m do begin
             a[i,j]:=random (20);
             write (a[i,j]:3) end;
         writeln end;
end;

А как сделать, чтобы в одной программе формировались разные массивы одной процедурой? Например:

  Vivod (массив a с размером m*n);
  Vivod (массив b с размером k*l);

Какие для этого нужны параметры в процедуре?