1 program mym0;
   2 uses mtx09;
   3 var
   4  x:array[1..6of double = (1.0,2.0,3.0,4.0,5.0,6.0);
   5  _x:mtx; // possible convention to identify static memory mapped mtx
   6 begin
   7   mym(_x,x[1],3,2);      // _x cannot get bigger than 6 elements
   8   mwr(_x);               // but it can be smaller;
   9   equ(_x,'10 20');       // _x behaves as any plain (dynamic) mtx;
  10   mwr(_x);               // now row vector size 2
  11   x[2] := x[1] + x[2]/3// x and _x access to the same data
  12   mwr(_x)                //
  13 end.
  14 {
  15 1   2
  16 3   4
  17 5   6
  18 
  19 10   20
  20 
  21 10   16.6667
  22 
  23 }