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 }