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

program zz1;

var s:string; / / задаем переменную строкового типа

i, s1:integer; / / задаем переменную целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

for i:=1 to length (s) do / / организуем цикл, в котором переберем все символы от первого до последнего

if s[i] = 'f'/ / проверяем, если символ соответствует букве "f", то считаем его

then begin s1:=s1+1;

if s1 = 2 then begin write (' второе вхождение "f" с номером ', i); break; end; end; / / выводим ответ в зависимости от количества букв "f"

if s1 = 1 then writeln (-1);

if s1 = 0 then writeln (-2);

end.