Совместить все программы

[desnet]

Помогите все эти программы связать в одну.

1)
type
TMat = array[1..100, 1..100] of integer;
var
MatA, MatB: TMat;
n: integer;
procedure Zapolnenie(var Mat: TMat; n: integer);
var
i, j: integer;
begin
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
Mat[i, j]:=random(71)-50;
write(Mat[i, j]:4);
end;
writeln;
end;
writeln;
end;
begin
readln(n);
Zapolnenie(MatA, n);
readln(n);
Zapolnenie(MatB, n);
end.
2)

program lab_kr;
type
TArr = array[1..100,1..100] of integer;

procedure Work (const a : TArr; var sum, kol : Integer);
var
j,n, i : Integer;
begin
sum:=0; kol:=0;
for i:=1 to n do
for j:=1 to n do
if (A[i,j]>0) and (i<j) then
begin inc(kol); sum:=sum+A[i,j]; end;
end;
var
a : TArr;
i,j,n:integer;
sum,kol:integer;
begin
write ('Vvedite razmer massiva A');
readln (n);
for i:=1 to n do
for j:=1 to n do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end;
write ('Vot vvedennyy vami massiv A- ');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:3,' '); end;
writeln;
writeln('Summa= ',sum);
writeln('Kol-vo= ',kol);
readln;
end.


3)
Program mas_11;
uses crt;
const n=3;m=4;
Var a:array[1..n,1..m] of integer;
max,i,j:integer;
Begin
randomize;
For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(10);
write(a[I,j]:4);
end;
writeln;
end;
For i:=1 to n do
begin
max:=a[i,1];
For j:=1 to m do
If max< a[i,j] then
max:=a[i,j];
Writeln('наибольший элемент массива ',i,'строки',max);
End;
For i:=1 to n do begin
For j:=1 to m do If a[1,j]< a[i,j] then a[1,j]:=a[i,j];
End;
For i:=1 to n do begin
For j:=1 to m do write(a[i,j]:6); writeln;
End;
Readln;
End.


4)
Program dmas_2;
const n=3;m=4;
Var a:array[1..n,1..m] of integer;
I,j:integer;
s:real;
Begin
For i:=1 to n do
For j:=1 to m do
Begin
Writeln('ўўҐ¤ЁвҐ н«Ґ¬Ґ*в ¬*ббЁў* ');
Readln(a[i,j]);
End;
s:=0;
For i:=1 to n do
For j:=1 to m do
s:=s+a[i,j];
Writeln('б।*ҐҐ *аЁд¬ҐвЁзҐбЄ®Ґ =',s/(n+m):4:4);
Readln;
End.


5)
Const
s1='D:\TP7\SOURCES\1.pas';
s2='D:\TP7\SOURCES\10.txt';
type
TMat = array[1..100, 1..100] of integer;
var
MatA, MatB: TMat;
n: integer;
st:string;
f1,f2:text;
procedure Zapolnenie(var Mat: TMat; n: integer);
var
i, j: integer;
begin
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
Mat[i, j]:=random(71)-50;
write(Mat[i, j]:4);
end;
writeln;
end;
writeln;
end;
begin
readln(n);
Zapolnenie(MatA, n);
readln(n);
Zapolnenie(MatB, n);
Assign(f1,s1);
Reset(f1);
Assign(f2,s2);
Rewrite(f2);
While not EOF(f1) do
Begin
ReadLn(f1,st);
WriteLn(f2,st);
End;
Close(f1);
Close(f2);
end.


6)
program m1;
uses crt;
var a:string;
i:integer;
procedure schet(b:string);
var glas:integer;
begin
glas:=0;
for i:=1 to length(b) do
begin
b[i]:=['a'..'z','A'..'Z'] and b[i]:=['a','A','e','E','i','I','o','O','u' ,'U','y','Y']then
inc(glas);
end;
writeln('glasnyh:',glas);
write('glasnyh');
end;
begin
clrscr;
a:='D:\TP7\SOURCES\10.txt');
writeln(a);
schet(a);
end.