Viết chương trình nhập vào 2 xâu sl, s2. Hãy chèn xâu s1 vào s2 tại vị trí k, đưra kết quả xấu sau khi chèn ra màn hình.

uses crt;

var s1, s2 : string; k : byte;

begin

clrscr;

write('Xau s1 = '); readln(s1);

write('Xau s2 = '); readln(s2);

write('Nhap vi tri k : '); readln(k);

insert(s1, s2, k); write('Xau moi : ', s2);

readln

end.

program oken;
uses crt;
var s1,s2: string;
    k: byte;
begin
    clrscr;
    write('nhap xau 1: '); readln(s1);
    write('nhap xau 2: '); readln(s2);
    write('nhap vi tri de chen s1 vao s2: '); readln(k);
    insert(s1,s2,k);
    write('ket qua: ',s2);
    readln;
end.