опять строки Опции

[Анчоус]

Привет, умный народ.
У меня проблемы с задачками в школе по Паскалю. Вот задача:

"Дана строка STR длиной неболее 100 символов,
и дана строка STR1 неболее 7 символов.
Определить сколько раз в строке STR встречается строка STR1"

я попробовала через функцию copy и процедуру insert, но у меня что-то не получается, короче, я делаю что-то не так, и до меня что-то не допирает.
Вообщем, кто может, помогите тупой девочке(т.е. мне).

[klem4]

Да пример хороший )))

function GetCount(s: String; const s1: String): Integer;
var
  P: Integer;
begin
  P := Pos(s1, s);
  if P = 0 then
   GetCount := 0
  else
   GetCount := GetCount(Copy(s, P + Length(s1) - 1, 255), s1) + 1;
end;