struktur & organisasi data

programnya dibuat dengan menggunakan turbo pascal 7.0
inputnya

program man_string;
uses crt;
var s : string;
I:integer;
h:string;
const a=' struktur';
b=' organisasi';
c=' data';
begin
ClrScr;
S:=concat (a,b,c);
Writeln (s);
Insert (' & ',s,9);
Writeln(s);
Delete (s,7,5);
Writeln (s);
h:=Copy (s,1,5);
Writeln (h);
l:= Length(s);
Writeln ('Panjangnya string S : ',l);
Writeln ('Posisi "data" pada nilai S : ',POS('data',s));
readln;
END.

output dari program diatas :
struktur organisasi data
struktur & organisasidata
struktganisasi data
struk
panjang string S:20
posisi "data" pada nilai :17