Как объединить все эти программы в одну?

var w:array[1..300] of integer; 
i:integer; 
begin 
randomize; 
for i:=1 to 37 do 
w[ i ]:=random(6)-10; 
for i:=1 to 37 do 
write(w[ i ],' '); 
readln; 
end.

const n:=8; 
var a:array[1..n] of integer; 
i,k,sum:integer; 
s:real; 
begin 
s:=0; k:=0; sum:=0; 
randomize; 
for i:=1 to n do 
a[i]:=random(9)+1; 
for i:= n-2*(n/4) to n-(n/4) do 
if a[i] mod 2<>0 then begin sum:=sum+a[i]; k:=k+1; end; 
for i:=1 to n do 
write(a[i],' '); 
writeln; 
if k=0 then writeln('нечетных нет'); else s:=sum/k; 
write('Среднеарифметическое=',s); 
end.

var M:array [1..37] of integer; 
i,n,b:integer; 
sum:real; 
begin 
writeln('Vod massiva'); 
randomize; 
for i:=1 to 37 do begin 
b:=random(7); 
M[i]:=b; 
end; 
for i:=1 to 37 do write(M[i],' '); 
writeln; 
writeln('задание 2'); 
n:=0; 
sum:=0; 
for i:=1 to 12 do begin 
if M[i]<>0 then sum:=sum+1/M[i]; 
n:=n+1; 
write(sum,' '); 
 end; 
writeln; 
writeln('srednegarm=',1/((1/n)*sum):5:2); 
end.

Const nmax=100; 
Var R:array[1..nmax] of integer; 
i,j,n:byte; 
t:integer; 
Begin 
Repeat 
write('1<=N<=',nmax,': '); 
readln(n); 
Until n in [1..nmax]; 
For i:=1 to n do 
Begin 
R[i]:=random(21); 
write(R[i]:3); 
End; 
For j:=n div 2+2 to i do 
if (R[j]<>0)and(R[j-1]<>0) then 
if 1 / R[j] < 1 / R[j-1] then 
Begin 
t:=R[j]; 
R[j]:=R[j-1]; 
R[j-1]:=t; 
End; 
writeln; 
writeln('Полученный массив'); 
For i:=1 to n do 
write(R[i]:3); 
readln; 
readln; 
End.