Паскаль дана строка. если в этом числе буква f встречается только один раз, выведите её индекс. если она встречается два и более раз, выведите индекс её первого и последнего появления. если буква f в данной строке не встречается, ничего не выводите.

Var i, n, i1, i2: integer;
s: string;
begin

readln(s);

n := length(s);

i1:=0;
i2:=0;

for i:=1 to n do
if s[i]='f' then
begin

if i1<1 then
i1:=i
else
i2:=i;

end;

if i1>0 then
if i2>0 then
writeln('Первая и последняя позиции f = ', i1, ' и ', i2)
else
writeln('Единственная позиция f = ', i1);

end.