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 &}
15 program mrd_rfm;
16 uses mtx09;
17 var
18 m: mtx;
19 f: text;
20 begin
21 opn('mrd_rfm.pas',f);
22 mrd(m,f,'B');
23 mwr(m);
24 clo(f); // close file
25 opn('mrd_rfm.pas',f);
26 mrd(m,f,'A');
27 mwr(m);
28 clo(f);
29 opn('mrd_rfm.pas',f);
30 mrd(m,f);
31 mwr(m);
32 clo(f);
33 end.
34 {
35 B
36 12 13
37 14 15
38
39 A
40 8 9 10 11
41
42 1 2 3
43 4 5 6
44
45 }