15 lines
194 B
ObjectPascal
15 lines
194 B
ObjectPascal
procedure Test(var c: char);
|
|
begin
|
|
c := 'k';
|
|
end;
|
|
|
|
var
|
|
s: string := 'abcd';
|
|
s2: string[5] := '1234';
|
|
|
|
begin
|
|
Test(s[2]);
|
|
Test(s2[2]);
|
|
assert(s = 'akcd');
|
|
assert(s2 = '1k34');
|
|
end. |