viết chương trình nhập vào xâu s bất kì , cho biết vị trí xuất hiện sâu ( sâu bất kì)

program xuat_hien;

uses crt;

var s,s1:string;

begin

       clrscr;

       write(‘Nhap xau thu nhat: ‘);   readln(s);

       write(‘Nhap xau thu hai: ‘);   readln(s1);

       if pos(s1,s)=0 then write(‘Khong co’)

       else write(‘Vi tri xuat hien dau tien la: ‘,pos(s1,s2));

       readln;

end.