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

[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.

[Unconnected]

Я сделал так:

var st,podst:string;
    i,n,c:byte;
begin
  writeln('Vvedite stroku');
  readln(st);
  writeln('Vvedite podstroku');
  readln(podst);
  writeln('Vvedite N');
  readln(n);
  for i:=1 to n do
    if pos(podst,st)>0 then begin
                              inc(c,pos(podst,st)+length(podst)-1);
                              delete(st,1,pos(podst,st)+length(podst)-1);
                            end
    else begin
           writeln('Stolko podstrok netu...');
           halt;
         end;
  writeln(c-length(podst)+1);
  readln;
end.

Сообщение отредактировано: Unconnected - 23.11.2009 22:08

[Work Group]

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