1 {#
   2 
   3 1 2 3
   4 4 5 6
   5 
   6 A
   7 8 9 10 11
   8 
   9 B
  10 12 13
  11 14 15
  12 
  13 &}
  14 program mrd_rss;
  15 uses mtx09;
  16 var
  17   m: mtx;
  18   s: string = 'mrd_rss.pas';
  19 begin
  20   mrd(m,s,'B');
  21   mwr(m);
  22   mrd(m,s,'A');
  23   mwr(m);
  24   mrd(m,s);
  25   mwr(m)
  26 end.
  27 {
  28 B
  29 12   13
  30 14   15
  31 
  32 A
  33 8   9   10   11
  34 
  35 1   2   3
  36 4   5   6
  37 
  38 }