1 program nam_p;
2 uses mtx09;
3 var a: mtx; s:string;
4 begin
5 equ(a,'1,2,3');
6 mwr(a); // anonymous mtx
7 nam(a,'A'); // give a name
8 mwr(a); // a is a named mtx
9 s := nam(a); // retrieve the name
10 mwr(s) // mwr(<string>) avatar
11 end.
12 {
13 1 2 3
14
15 A
16 1 2 3
17
18 A
19 }