[fpc-pascal]Yet another bug in Win32 CRT unit

[Rich Pasco]

The "sound" procedure does not produce a sound of the required Hertz,
instead is imply "dings the bell."

Try this program under Borland Pascal and under Free Pascal 1.04

uses CRT;
begin
  sound(1000);
  delay(1000);
  sound(500);
  delay(1000);
  nosound;
end.

     - Rich