type ta = array[1..1,1..100] of integer;

procedure t(a: ta);
begin
end;

var a: ta;

begin
  t(a);
end.