Create frases.pas