1 {
2 #! /bin/bash
3 ./mwr_af
4 cat test.txt
5 rm test.txt
6 exit 0
7 }
8 program mwr_af;
9 uses mtx09;
10 var
11 a, b:mtx;
12 o:string='test.txt';
13 f:text;
14 begin
15 equ(a,'1;2;3');
16 equ(b,'4,5,6');
17 rewrite(f,o);
18 mwr(a,f);
19 mwr(b,f);
20 close(f);
21 append(f,o);
22 mwr(a,f);
23 close(f)
24 end.
25 {
26 1
27 2
28 3
29
30 4 5 6
31
32 1
33 2
34 3
35
36 }