Хотя бы одно помогите сделать

Question

Хотя бы одно помогите сделать

---

Answer 1

2
function looking (s1:string; s2:string):integer
j:integer;
begin
for j:=1 to length(s2) do
  begin
  if pos (copy(s2, j, 1), s1)>0 then
  return pos (copy(s2, j, 1), s1);
  end;
return 0;
end;