blob: 50aea98983651a9db0a7469671cf0f2ca19ac1f1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
var
S:String[16];
C:Char = '?';
inss: string = 'abc';
begin
S:='DefineTestString';
Insert(C,S,20);
if (length(s)>16) or
(s<>'DefineTestString') then
halt(1);
insert(inss,s,20);
if (length(s)>16) or
(s<>'DefineTestString') then
halt(2);
end.
|
