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 }