cho xâu s1 và s2 tìm vị trí xuất hiện cuối cùng câu xâu s1 trong xâu s2 pascal giúp mình với ạ, mai mình phải kiểm tra rồi!!!

uses crt;
var s1,s2,tam1,tam2:string; i:byte;
begin
   clrscr;
   write('Nhap xau s1: '); readln(s1);
   write('Nhap xau s2: '); readln(s2);
   for i:=length(s1) downto 1 do tam1:=tam1+s1[i];
   for i:=length(s2) downto 1 do tam2:=tam2+s2[i];
   write('Vi tri xuat hien cuoi cung cua s1 trong s2 la: ',length(s2)-(pos(tam1,tam2)+length(s1)-2));
   readln
end.

uses crt;
var f:text; i,d:longint; s1,s2:string;
begin
clrscr;
   readln(s1);
   readln(s2);
   while pos(s1,s2)<>0 do 
      begin
         i:=pos(s1,s2); inc(d);
         delete(s2,i,length(s1));
      end;
   writeln(i+d*length(s1)-1);
readln;
end.