asi que le hice la traduccion a pascal practicamente es el mismo codigo
function StringInStr(Cadena,Buscar:string):integer;
var
i,pos,fin:shortint;
begin
pos:=1; fin:=-1;
if length(Cadena)>=length(Buscar) then
begin
for i :=1 to length(Cadena) do
begin
if Cadena[i]=Buscar[pos] then
begin
if pos=length(Buscar) then
begin
fin:=i-length(Buscar)+1;
Break;
end;
inc(pos);
end;
end;
end;
result:=fin;
end;
