Viết chương trình nhập vào 2 xâu s1 s2. In ra màn hình vị trí xuất hiện đầu tiên của xâu s1 trong xâu s2

uses crt;
var s1,s2:string;
    i:byte;
begin
   clrscr;
   write('Nhap xau s1: '); readln(s1);
   write('Nhap xau s2: '); readln(s2);
   writeln;
   i:=pos(s1,s2);
   if i=0 then write('s1 khong xuat hien trong s2') 
   else write('Vi tri xuat hien dau tien cua s1 trong s2 la: ',i);
   readln
end.

uses crt;
var s1,s2 : string;
i : integer;
begin clrscr;
write('Nhap xau 1 :'); readln(s1);
write('Nhap xau 2 :'); readln(s2);
for i:=1 to length(s2) do if s1[1] = s2[i] then
 write('Vi tri xuat hien dau tien trong xau s2 la :',i) ;
readln
end.