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
write ('stroka-'); readln ;
write ('slovo-'); readln ;
writeln ('kol-vo=');
writeln('GetCount');
end.