Воспроизведение файлов wav и mp3 - Pascal ABC

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

Подскажите пожалуйста как вставить музыку в Pascal ABC.Вот сюда

var a,b,d,g,l,t,h,j,e,q,w,aa: integer ;
begin
 writeln('Привет!Меня зовут Компьютер.Будем говорить на ты.Мне 12 лет.А тебе сколько?');
 read(a);
  if a > 70 then
   writeln('А ты случайно не переборщил?')
  else
  if (a >=18) and (a <= 55) then
   writeln('Так ты взрослый(ая).Прости я не воспринимаю буквы.А ты можешь писать вместо да - 1,а вместо нет - 0?');
  if (a>55) or(a<18) and(a>=12 )then
   writeln('Понятно.Знаешь,я к сожалению не воспринимаю буквы.Из-за этого тебе придётся писать вместо да - 1,а вместо нет - 0.Хорошо?');
  if a<12 then
   writeln('Так ты младше меня!Знаешь,я к сожалению не воспринимаю буквы.Из-за этого тебе придётся писать вместо да - 1,а вместо нет - 0.Хорошо?');
 read(b);
  if b>1 then
   writeln('Ну мы же договорились писать 1 или 0,но не другие цифры вместо да или нет.')
  else
  if b=1 then
   writeln('Хорошо.Хочешь раскажу анекдот?');
  if b=0 then
   writeln ('Да не шути ты!Всё равно я знаю что ты согласился(ась).Ты же написал(а) 0 - значит ты согласился(ась).Хочешь раскажу анекдот?');
 read(d);
  if d=1 then
   writeln('Слушай:шёл Колобок из леса и нёс с собой корзинку с грибами.Когда он переходил дорогу на него наехала машина(сочувствую Колобку).');
   writeln('Вот так изобрели пиццу с грибами.Правда,мне не смешно:Колобка жалко.');
  if d=0 then
   writeln('Не хочешь - как хочешь.Не стану тебя уговаривать.');
 writeln('А какой сегодня день?Я спрашиваю,потому,что,мой создатель забыл установить дату.');
 read(g);
  if g>31 then
   writeln('Не забывай,что дней в месяце 31,ну никак не больше.')
 else
 writeln('А какой сегодня месяц?');
 read(l);
 if l>12 then
   writeln('Не забывай,что месяцев в году 12,ну никак не больше.')
 else
 writeln('А какой сегодня год?');
 read(t);
  if t < 2012 then
  writeln('Ай-ай-ай.Неправильная дата.')
  else
 writeln('А сколько сейчас часов?');
 read(h);
  if h>24 then
   writeln('Не забывай,что часов в дне 24,ну никак не больше.')
 else
 writeln('И сколько минут?');
 read(j);
  if j>60 then
   writeln('Не забывай,минут в часе 60,ну никак не больше.')
 else
 write('Значит сегодня',g);
 write('.',l );
 write('.',t);
 write('.',h,'часа(ов) и');
 write(j,' минут(а)(ы).Правильно?');
 read(e);
  if  e>1 then
   writeln('Ну мы же договорились писать 1 или 0,но не другие цифры вместо да или нет.')
  else
  if (e = 1) or(e = 0) then
   writeln('Хорошо.');
 writeln('Хорошая сейчас погода.Правда?');
 read(q);
  if q>1 then
   writeln('Ну мы же договорились писать 1 или 0,но не другие цифры вместо да или нет.')
  else
  if q = 1 then
   writeln('Хоть я и не предсказатель,но угадал правильно.');
  if q = 0 then
   writeln('Опять не угадал.');
 writeln('Давай поговорим об астрономии.А ты знаешь,что Плутон уже не считается планетой?');
 read(w);
  if w>1 then
   writeln('Ну мы же договорились писать 1 или 0,но не другие цифры вместо да или нет.')
  else
  if (w = 1) and (t > 2012)  then
   writeln('Сейчас это все знают.А вот в начале 2012 года это мало кто знал.');
  if (w = 1)and (t = 2012) and (a <=18) then
   writeln('Да ты очень умный(ая)!И где это ты так начитался(ась)? Интересно.');
  if (w = 1) and (t=2012) then
   writeln('Значит ты очень умная(ый).');
  if (w = 0) and (t=2012) then
   writeln('Да ладно.Ничего страшного.Всё равно это мало кто знает сейчас.');
  if (w = 0) and (t > 2012) then
   writeln('Ай - ай - ай.Надо было знать.Ну ничего страшного.Зато теперь ты будешь знать.');
 Writeln('Знаешь,а учёные утверждают,что через несколько миллиардов лет, наше солнце превратится в красного гиганта и поглотит все ближайшие планеты,в том числе и Землю.');
 writeln('Но нам можно не беспокоится.Ведь если техника развивается так быстро,то учёные что - нибудь смогут придумать за эти несколько миллиарды лет.');
 writeln('Вот ты хочешь што - нибудь изобрести?Я ,например хочу изобрести сверхсветовую  ракету.');
 read(aa);
  if aa>1 then
   writeln('Ну мы же договорились писать 1 или 0,но не другие цифры вместо да или нет.')
  else
  if aa = 1 then
   writeln('Все хотят что - нибудь изобрести.ыы');
  if aa = 0 then
   writeln('А почему ты не хочешь?Ну ладно,ничего страшного.');
 
   end.

Решение задачи: «Воспроизведение файлов wav и mp3»

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

uses GraphABC, Sounds, Events;
var snd1: integer;
procedure MouseDown(x,y,mb: integer);
begin
  Circle(x,y,10);
  Circle(x,y,5);
  if mb=1 then
  begin
    RewindSound(snd1);
    PlaySound(snd1)
  end
  else StopSound(snd1);
end;
begin
  snd1:=LoadSound('название.wav');
  OnMouseDown:=MouseDown;
end.

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

В начале кода используются библиотеки GraphABC, Sounds и Events.
Переменная snd1 типа integer используется в процедуре MouseDown.
В процедуре MouseDown сначала рисуются два круга с радиусами 10 и 5 единиц соответственно.
Затем проверяется, равен ли параметр mb единице. Если это так, то воспроизводится звук, ассоциированный со звуковым файлом 'название.wav', используя функцию RewindSound и PlaySound.
Если параметр mb не равен единице, то останавливается звук, используя функцию StopSound.
В конце кода загружается звуковой файл 'название.wav' с помощью функции LoadSound и устанавливается обработчик событий OnMouseDown, который вызывает процедуру MouseDown при нажатии мыши.