var 
  s: string := 'this bra is abracadabra';
  subs := 'bra';
  count: integer;
begin
  count := 0;
  var scopy := s;
  while s.Length>0 do
  begin
    var p := Pos(subs,s); // Поиск подстроки в строке
    if p=0 then       
      break;
    count += 1;
    Delete(s,1,p+subs.Length);
  end;
  writelnFormat('Количество вхождений ''{0}'' в ''{1}'' равно {2}',subs,scopy,count);
end.