помогите довести программу, строки Опции

[Work Group]

тут написал прогу,которая находит индекс символа(подстроки) в строке с которого начинается N-ое вхождение данной подстроки.
всё работает,только есть одно но...если есть строка фбсфбсфбс и подстрока фбс, и Н=3, то прога выдает ответ 0..

вот сама программа

Код

uses crt;
var st,p:string;
i,j,n,nn,t,count:integer;
f:boolean;
begin
clrscr;
write('введите строку S: ');
readln(st);
write('введите подстроку P: ');
readln(p);
write('введите N: ');
readln(n);
count:=0;

for i:=1 to length(st)-length(p) do
begin
   f:=true;
   t:=i;
   for j:=1 to length(p) do
     begin
       if st[t]<>p[j] then f:=false;
       inc(t);
     end;
   if f then
     begin
      inc(count);
      nn:=i;
     end;
  if count=n then break;
end;

//for i:=1 to length(st) do
//writeln(st[i]);

if count=n then writeln(nn) else write('0');
readln;

end.

[Lapp]

2 Unconnected:
пожалуйста, не модифицируй свои сообщения так сильно. Учти, что в теме на тебя могут ссылаться. Если делаешь маленькие изменения - делай, но лучше сказать, что именно изменил. Если большие - лучше новым постом.

2 All:
В этой задаче есть одна неопределенность в условии. Вот, скажите, сколько раз встречается семпл "aaa" в строке "aaaa"? В своей программе я принял, что это нужно считать за 2 вхождения.

мне кажется наоборот хуже стала программа
всё же через while наилучший вариант...
я честно не знаю как сделать...

Вот это мне нравится.. "кажется".. круууть..
И почему же тебе КАЖЕТСЯ, что "все же через while наилучший вариант"? Может, все же обоснуешь?

repeat/until в данном случае лучше по той причине, что хотя бы один раз проверить надо (что именно - другой вопрос).

Work Group, у меня к тебе есть один вопрос. Ты сознательно избегал использования функции Pos в своем коде, или просто по незнанию? В смысле - ее можно использовать или нет? Если да, то решение может выглядеть примерно так (взял твою прогу за основу)

uses crt;
var
  s,p:string;
  n,i,t,count:integer;
begin
  write('введите строку S: ');
  readln(s);
  write('введите подстроку P: ');
  readln(p);
  write('введите N: ');
  readln(n);

  count:=0;
  i:=0;
  repeat
    t:=Pos(p,Copy(s,i+1,Length(s)-i));
    if t>0 then begin
      Inc(count);
      i:=i+t
    end
  until (count=n)or(t=0);
  if 0<t then writeln(i) else write('not found');
  readln;
end.

Разбирайся и спрашивай, что неясно.