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

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