blob: 28f67669ac2dd758c5287a10371fe0840c3d00f1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
program test;
procedure write1( var charbuf:string);
begin
Writeln(Charbuf);
end;
procedure write2( var charbuf:string; attrbuf:array of word);
begin
Writeln(Charbuf);
end;
var chars : String[82];
attrs : array [1..162] of word;
begin
Chars := 'Das ist ein Test, den ich gerade schreibe';
write1(chars);
write2(chars,attrs);
end.
|
