Процедура формирования массивов

[Lilu666]

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

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);

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

[Hacker19_90]

Вот сюда сходите
http://programmersforum.ru/showthread.php?t=196811

[Lilu666]

Спасибо, но в Турбо паскале такой вариант не работает.
И хотелось бы задавать массив без типов, просто через var.