Pascal/Turbo Pascal - Quiero poner sonido a los creditos

Como hago para poner sonido a los creditos
program pcreditos;
uses crt, Graph;
procedure himno;
var
dome,re,mi,fa,sol,la:integer;
BEGIN
dome:=545;
re:=610;
mi:=670;
fa:=725;
sol:=800;
la:=900;

clrscr;

sound(mi); delay(500); nosound; delay(50);

sound(mi); delay(500); nosound; delay(50);

sound(fa); delay(400); nosound; delay(50);

sound(sol); delay(500); nosound; delay(50);
delay(40);
END;
procedure creditos;
var
Gd, Gm: Integer;
y: integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'c:\tp\bgi ');
if GraphResult <> grOk then
Halt(1);
delay(255);
y:=479;
repeat
cleardevice;
settextstyle(1,horizdir,3);
OutTextXY(getmaxX div 2,y,'CREDITOS');
y:=y-1;
delay(10);
until y = 0 ;
y:=479;
repeat
cleardevice;
settextstyle(0,horizdir,1);
outtextxy(200,y-40,'ALUMNO:');
OutTextXY(getmaxX div 2,y,'HAROLD SALAS CHAVERRI');
y:=y-1;
delay(10);
until y = 0 ;
y:=479;
repeat
cleardevice;
outtextxy(335,y-40,'CUNA');
OutTextXY(280,y,'I CUATRIMESTRE-2005');
y:=y-1;
delay(10);
until y = 240 ;
delay(950);
CloseGraph;
end;
begin
creditos;
end.