Передача через нетипизированный параметр как динамических, так и статических (разного объёма) массивов

[Hvatit]

Необходимо написать процедуру, способную выводить двумерные динамические и статические массивы разной длины.

С одномерными дело обстоит куда лучше, ведь там можно использовать открытый массив. Тут же такой функции нет. Немного погуглив, я нашёл что-то более-менее пригодное для моих целей. Это, как вы уже догадались, нетипизированный параметр. Ну а чтобы было легче понять принцип его работы, я решил начать с одномерных массивов. Итак, я поставил перед собой задачу написать процедуру, в качестве одного из параметра которой можно было бы подавать разной длины статические и динамические массивы.

Начнём, пожалуй, с передачи динамического.

program Project1;

var
  mas2 : array of integer;
  i : byte;

procedure outmas(var omas; size : byte);
  var
    outm : array of integer absolute omas;
    n : byte;
  begin
    setlength(outm,size);
    for n := low(outm) to high(outm) do
      write(outm[n]:3)
  end;

begin
  setlength(mas2,10);
  for i := low(mas2) to high(mas2) do
    begin
      randomize;
      mas2[i] := random(100)
    end;
  outmas(mas2,length(mas2));
  readln
end.

Эта программа работает безупречно.

Что же, идём дальше. А дальше нас ждут статические массивы.

program Project1;

var
  mas1 : array[0..9] of integer;
  i : byte;

procedure outmas(var omas; size : byte);
  var
    outm : array of integer absolute omas;
    n : byte;
  begin
    setlength(outm,size);
    for n := low(outm) to high(outm) do
      write(outm[n]:3)
  end;

begin
  for i := low(mas1) to high(mas1) do
    begin
      randomize;
      mas1[i] := random(100)
    end;
  outmas(mas1,length(mas1));
  readln
end.

По моим представлениям это и должно было оказаться решением, но… оказалось, что программа просто-напросто вылетает. Путём проб и ошибок было выяснено, что если передавать ещё не забитый массив, то программа не вылетит. Пример:

program Project1;

var
  mas1 : array[0..9] of integer;
  i : byte;

procedure outmas(var omas; size : byte);
  var
    outm : array of integer absolute omas;
    n : byte;
  begin
    setlength(outm,size);
    for n := low(outm) to high(outm) do
      write(outm[n]:3)
  end;

begin
  outmas(mas1,length(mas1));
  readln
end.

В чём же здесь секрет? Как мне построить правильнее процедуру?