Free Pascalban (grafikus mód) a delay függvény működőképes? Lehet, hogy máshol a hiba, ezért beszúrom a progit (a hang hosszát szeretném szabályozni) :

program hang;

uses wincrt,graph;

var gd,gm,i:integer;

q:char;

reakcio: boolean;

procedure hang(reakcio:boolean); {hang a kiertekeles melle}

var fr:word;

begin

case reakcio of

true : begin

fr:=600;

Sound(fr);

delay(50);

fr:=800;

Sound(fr);

delay(100);

Nosound;

end;

false : begin

sound(400);

delay(2000);

nosound;

end;

end;

end;

begin

gd:=d4bit;

gm:=vgahi;

initgraph(gd,gm,'');

if graphresult<>grok then halt;

repeat

q:=readkey;

if q=#13 then reakcio:=true else reakcio:= false;

hang(reakcio);

until q=#27;

readkey;

closegraph;

end.