Почему-то нет звука - Turbo Pascal

Формулировка задачи:

Вот следующий код:

program sound;
uses crt;
var
   i: integer;
begin
   clrscr;
   sound(600);
   for i:=1 to 10 do
      delay(60000);
   nosound;
   writeln('Нажмите <Enter>...');
   readln;
end.

Программа выполняется, но почему-то компьютер звук не издаёт. Пробовал и на ноутбуке, и на персональном. Звука нет.

Решение задачи: «Почему-то нет звука»

Листинг программы

program sound1;
uses crt;
var
   i: integer;
begin
   clrscr;
   sound(600);
   for i:=1 to 10 do
      delay(60000);
   nosound;
   writeln('Нажмите <Enter>...');
   readln;
end.

Объяснение кода листинга программы

Программа называется sound1.
Используется библиотека crt, которая предоставляет функции для работы с консолью.
Переменная i является целочисленной и используется для цикла.
Функция sound(600) устанавливает звук с частотой 600 Гц.
Цикл for i:=1 to 10 do выполняется 10 раз.
Внутри цикла выдерживается пауза в 60 секунд с помощью функции delay(60000).
После завершения цикла отключается звук с помощью функции nosound.
Выводится сообщение Нажмите <Enter>....
С помощью функции readln() считывается ввод пользователя.
Программа завершается.