viết chương trình nhập vào 02 xâu s1 và s2 từ bàn phím, sau đó ghép 02 xâu đó lại ta được xâu s3. hiển thị xâu s3 và độ dài xâu s3 ra màn hình

uses crt;
var  s1,s2 : string;
begin clrscr;
write('Nhap xau s1 :'); readln(s1);
write('Nhap xau s2:'); readln(s2);
writeln('Xau moi la :',s1+s2);
writeln('Do dai xau moi la :',length(s1)+length(s2));
readln
end.

program oken;
uses crt;
var s1,s2,s3: string;
begin
    clrscr;
    write('Nhap xau thu 1: '); readln(s1);
    write('Nhap xau thu 2: '); readln(s2);
    insert(s1,s3,1);
    insert(s2,s3,length(s1));
    writeln('Xau moi: ',s3);
    readln;
end.