1 program elm3;
   2 uses mtx09;
   3 var a: mtx;
   4 begin
   5   tra;
   6   zer(a,3,2);
   7   elm(a,'-1');
   8   mwr(a);
   9   elm(a,'10 20');
  10   mwr(a);
  11   elm(a,'1;2;3');
  12   mwr(a)
  13 end.
  14 {
  15 # zer [3,2]
  16 0   0
  17 0   0
  18 0   0
  19 
  20 # elm(mtx,string) [3,2]
  21 -1   -1
  22 -1   -1
  23 -1   -1
  24 
  25 -1   -1
  26 -1   -1
  27 -1   -1
  28 
  29 # elm(mtx,string) [3,2]
  30 10   20
  31 10   20
  32 10   20
  33 
  34 10   20
  35 10   20
  36 10   20
  37 
  38 # elm(mtx,string) [3,2]
  39 1   1
  40 2   2
  41 3   3
  42 
  43 1   1
  44 2   2
  45 3   3
  46 
  47 }