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

выводит ошибку

Исправил ответ, попробуйте заново.

var i, n, i1, i2: integer;s: string;beginreadln(s);n := length(s);i1:=0;i2:=0;for i:=1 to n doif s[i]='f' thenbeginif i1<1 theni1:=ielsei2:=i;end;if i1>0 thenif i2>0 thenwriteln('Первая и последняя позиции f = ', i1, ' и ', i2)elsewriteln('Единственная позиция f = ', i1);end.