procedure copy(S1 : string; var S2 : string; i : integer);

var
S1,S2 : string;

begin
S1 := 'SMA KOTA' ;
S2 := 'NEGERI 1 ' ;
writeln(S1);

insert(S2,S1, 5);
writeln(S1);
end.