Encontra Palavras PASCAL

Program Procura_nome;
var
 nova_frase,proc,frase:string;
 tam_proc,cont,i,posi:integer;
Begin
    Write('Digite a frase: ');
    readln(frase);
    Write('Digite Palavra/Procurar: ');
    readln(proc);
        tam_proc:=length(proc); {tamanho da palavra}
        repeat
            posi:=pos(proc,frase); {procura a palavra se nao axar 'posi' sera=0}
            if posi<>0 then
                Begin
                    cont:= cont+ 1; {conta as palavras}
                    for i := posi+tam_proc to length(frase) do
                                nova_frase:=nova_frase + frase[i]; {a nova_frase vai receber a frase menos todas as palavras anteriores a palavra desejada}
                    frase:= nova_frase; { a frase vai receber o resto da frase}
                    nova_frase:='';
                End;

        until ( length(frase) = 0);
        Writeln('Quantidade de Palavras: ',cont);
End.