Прокоментировать програму

program sound_wav;
uses crt;
const
ssize=16;
af=1;
numch=1;
sr=16;
sampR=16000;
bps=16;
sL=10;
br=256;
ba=2;
dat2=200;
riff=256;
var
 
f:file;
cr,i,t:longint;
procedure wstr(const arg:string; var f:file) ;
var s:string;
begin
s:=arg;
blockwrite(f,s,length(s));
end;
begin
assign(f,'music_file.wav');
rewrite(f,1);
wstr('riff ',f);
blockwrite(f,riff,sizeof(riff));
wstr('wave ',f);
wstr('fmt ',f);
write(f,ssize);
write(f,af);
write(f,numch) ;
write(f,sampR);
write(f,br);
write(f,ba);
write(f,bps);
wstr('data',f);
blockwrite(f,6,sizeof(ssize+af+numch+sampR+br+ba+bps));
wstr('data',f);
blockwrite(f,dat2,sizeof(dat2));
i:=0;
randomize;
while (i<1600) do
begin
t:=trunc(random(t) div 5) ;
blockwrite(f,t,sizeof(t));
i:=i+1;
end;
close(f);
end.