Linux's SOund

[¡Micronet!]

Saludos es que estoy intentando hacer un sonido, pero... no me sale ningun sonido ya le intente cambiar muchas frecuencias a esto... pero nada u.u
espero que me puedan ayudar ando trabajando en

linux con pascal.

Intente este:

Código [Seleccionar] Expandir

program foo;
uses Crt;
var
i:longint;
begin
i:=1;
while(i<2500) do
begin
inc(i,500);
Sound(i);
Delay(600);
end;
WriteLN('Quiet Now!');
NoSound;
end.


Tambien intento con esto:

Código [Seleccionar] Expandir

program beep;
uses crt;

procedure sound (hz: word);
begin
MessageBeep(0);
end;

begin
delay(10000);
end.

y ninguno de los dos :/