Pascal/Turbo Pascal - Ayuda con función sound

{A ver si esto te ayuda}

 uses

    crt;

  var

    ct : Integer;

 function potencia(p1, p2 : Real) : Real;

  begin

    potencia := exp(p2 * ln(p1));

  end;

 function frecuencia(octava, nota : Integer) : Integer;

 begin

   ct := octava - 3;

  if nota > 0 then

    frecuencia := round(440 * potencia(2, ct + ((nota - 10) / 12)))

  else

    frecuencia := 32767;

 end;

 begin

    clrscr;

    writeln('   La Frecuencia Es : ',frecuencia(6,12),' Hz');

    readln;

 end.

 {La octava de 0 a 6 y la nota de 1 a 12}