Funcion para contar secuencias

function contarRepeticion(str:string;prefix:string):integer;
var  len,lenAux:integer;
var i,j,contador:integer;
begin
    i:= 1;
    len := Length(str);
    lenAux := Length(prefix);
    contador := 0;
    while (i <= len) do begin
          j := 1;
        if (str[i] = prefix[j]) then begin
            while (j <= lenAux) and (i <= len) and (str[i] = prefix[j]) do begin
                i := i + 1;
               j := j + 1;
            end;
            if (j > lenAux) then begin
                contador := contador + 1;
            end;

        end else begin
                i := i + 1;
        end;

    end;
    contarRepeticion := contador;
end;