Звук с Crt Опции

[-Наська-]

Здравствуйте!!!!
Не могу заставить модуль Crt со мной общаться.
Решила попробовать уж на совсем простой задачке со звуком:
суть такая - набираешь октаву, ноту, он ее проигрывает....
не фига не проигрывает.

program Notka;
Uses Crt;
var
	okt:integer;
        nota:byte;
	hz:word;
begin
        readln(okt, nota);
        hz:=round(440*exp(ln(2)*okt-(10-nota)/12));
	sound(hz);
	delay(200);
	Nosound;
end.

Может как-то к этому Crt обратиться, что ли???...
Помогите, пожалуйста!