Script Suara Dengan Pascal

Buat lu yang emang cinta sama program pascal lu bisa lihat listing code berikut buat referensi lu aja dalam belajar pascal....
met mencobanya....
uses crt;
procedure kata(k,b:integer);
const k1='SELAMAT BELAJAR';
k2='TURBO PASCAL';
begin
gotoxy(k,b);write(k1);
gotoxy(k+2,b+2);write(k2);
end;

procedure warna;
var w:integer;
s1,s2,s3,s4,t:longint;
begin
t:=0;
repeat
inc(t);
randomize;w:=random(25);
s1:=random(1000);s2:=random(500);
s3:=random(300);s4:=random(700);
sound(s1);delay(200);sound(s2);
sound(s3);delay(200);sound(s3);
delay(100);nosound;
clrscr;textmode(c40);
textcolor(w+blink);
kata(13,6);
until t>30;
end;
begin
warna;
end.