Дана строка. Найдите в этой строке второе вхождение буквы f, и выведите индекс этого вхождения. Если буква f в данной строке встречается только один раз, выведите число -1, а если не встречается ни разу, выведите число -2

varf:char;s:stringi.k:integer;beginreadln(f,s);k:=0;for i:= 1 to length(s) do beginif s[i]=f then k:=k+1;if k=2 then writeln(i);end;if k=1 then writeln("-1");if k=0 then writeln("-2");end.