1 {#
   2 
   3 1 2 3
   4 4 5 6
   5 
   6 &}
   7 program mrd_rf;
   8 uses mtx09;
   9 var
  10   m: mtx;
  11   f: text;
  12 begin
  13   opn('mrd_rf.pas',f);
  14   mrd(m,f);
  15   mwr(m);
  16 end.
  17 {
  18 1   2   3
  19 4   5   6
  20 
  21 }