mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 04:28:00 +02:00
16 lines
275 B
ObjectPascal
16 lines
275 B
ObjectPascal
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.
|