Pascal/Turbo Pascal - un juego de musica

un juego en pascal

un juego en pascal criticas constructivas vale?

program musica;
uses crt;
var
te:char;
as,cox,le,er,pu,x,bo,a,b,c,num:integER;
sin:array[1..40] of byte;

procedure GRITAAA;
var
za,ze:integer;
BEGIN
za:=random(1100);
if za<700 then za:=700;
FOR ZE:=0 TO ZA DO
BEGIN
SOUND(1000-ZE);
DELAY(1);
SOUND(RANDOM(90)+ZE);
DELAY(1);
END;
NOSOUND;
END;
procedure doo(d,k:integer);
begin
sound(65*(k+k));{do}
delay(d);{duracion nota}
nosound;
end;

procedure re(d,k:integer);
begin
sound(73*(k+k));{re}
delay(d);
nosound;
end;

procedure mi(d,k:integer);
begin
sound(82*(k+k));{mi}
delay(d);
nosound;
end;

procedure fa(d,k:integer);
begin
sound(87*(k+k));{fa}
delay(d);
nosound;
end;

procedure sol(d,k:integer);
begin
sound(98*(k+k));{sol}
delay(d);
nosound;
end;

procedure la(d,k:integer);
begin
sound(110*(k+k));{la}
delay(d);
nosound;
end;

procedure si(d,k:integer);
begin
sound(123*(k+k));{si}
delay(d);
nosound;
end;
procedure melodia;
begin
for b:=1 to num do
begin
if sin=0 then delay(300);
if sin=1 then doo(300,8);
if sin=2 then re(300,8);
if sin=3 then mi(300

Y si creas una función para tocar todas las notas y utilizas un arreglo para tus constantes

65,73,82,87,98,110,123

no entiendo de funciones el programa completo esta en: foros.solocodigo.com en pascal junto con otros programillas