строки и подстроки

[Work Group]

ребята,можете помочь
написал программу,определяющая н-ое вхождения относительно начала вхождения подстроки в строку...но проблема...когда задаёшь строку 123123123 и подстроку 123 и задаёшь н равное 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.

[Stilet]

Не нравится мне твоя функция.
Предлагаю свою:

  var s:string;
              {$o-}
  function at(s,What:string;i:integer=1):integer;
  var e:integer;
  begin
   Result:=-1;
   e:=1; while e<=(length(s)-length(What)+1) do begin
    if (copy(s,e,length(What))=What) then begin
     Result:=e;
     if i=0 then     exit     else     dec(i);
    end;
    inc(e);
   end;
  end;
begin
 s:='123123123';
 Writeln(at(s,'123',4));
 Readln;
end.

В качестве оптимальной.
Смысл ее в том что равниваются подстрока и часть строки сразу блоком, и уменьшается счетчик правильных сравнений.
Как только счетчик дошел до нуля - возвращается позиция последнего сравнения.