a8f63a0c43d1dde37dab4f9e124395178779068a
10 x
: POINTER TO ARRAY OF CHAR;
13 f
:= Files
.Old("Test19.obn");
16 len
:= Files
.Length(f
);
18 FOR i
:= 0 TO len
- 1 DO Files
.Read(r
, g
); x
[i
] := CHR(g
) END;
19 Out
.String(x^
); Out
.Ln
;
22 Тест модуля Files
. Должно выводить содержимое файла Test19
.obn
.