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

[Анчоус]

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

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

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

[klem4]

function GetCount(S, S1: String): Integer;
var
  count, p: Integer;
begin
  count := 0;
  repeat
    p := Pos(S1, S);
    if p <> 0 then begin
     Delete(s, p, 7);
     inc(count);
    end;
  until p = 0;
  GetCount := count;
end;

begin
... 
writeln(GetCount(STR, STR1));
...
end.