Viết chương trình để nhập vào 2 xâu s1 và s2 sau đó thông báo ra màn hình xâu s1 có trong s2 không. Nhờ mn giúp em với ạ

program Xau;
uses CRT;
var   s1,s2: string;
begin

           clrscr;
     
           write(‘Nhap xau S1: ‘);readln(s1);
     
           write(‘Nhap xau S2: ‘);readln(s2);
         
           If pos(s1,s2) <> 0 then
     
           write(‘Xau S1 co trong xau S2’) else
     
           write(‘Xau S1 khong co trong xau S2’);
       
readln;
end.