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_rs;
  15 uses mtx09;
  16 var
  17   m: mtx;
  18   s: string = 'mrd_rs.pas';
  19   f: text;
  20 begin
  21   mrd(m,s);
  22   mwr(m);
  23   mrd(m,s); // To read several mtx one must
  24   mwr(m);   // read from a stream
  25   mwr('----');
  26   opn(s,f);
  27   while mrd(m,f) do mwr(m);
  28   mwr('====')
  29 end.
  30 {
  31 1   2   3
  32 4   5   6
  33 
  34 1   2   3
  35 4   5   6
  36 
  37 ----
  38 1   2   3
  39 4   5   6
  40 
  41 A
  42 8   9   10   11
  43 
  44 B
  45 12   13
  46 14   15
  47 
  48 ====
  49 }