Сортировка массивов с помощью процедуры

program sort;
type
mass=array[1..100] of integer;
var
i,n:integer;
a,c:mass;
procedure up(x:mass; m:integer);
var
b,j,h:integer;
begin
for h:=1 to m-1 do
for j:=1 to m-h do
begin
if x[j]>x[j+1] then
begin
b:=x[j+1];
x[j+1]:=x[j];
x[j]:=b;
end;
end;
end;
 
begin
write('n=');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
 
up(a,n);
 
for i:=1 to n do
begin
write('a[',i,']=');
writeln(a[i]);
end;
end.

procedure up(var x:mass; m:integer);

program mm;
type
vector=array[1..100] of real;
var
max1:real;
a,b,c:vector;
i,k:integer;
procedure maxx(x:vector; n:integer; var max:real);
var
j:integer;
begin
max:=x[1];
for j:=2 to n do
begin
if x[j]>max then
begin
max:=x[j];
end;
end;
end;
 
begin
write('k=');
readln(k);
begin
for i:=1 to k do
begin
write('a[',i,']=');
readln(a[i]);
end;
end;
maxx(a,k,max1);
write('max1=');
writeln(max1);
 
for i:=1 to k do
begin
write('b[',i,']=');
readln(b[i]);
 
end;
maxx(b,k,max1);
write('max1=');
writeln(max1);
 
for i:=1 to k do
begin
write('c[',i,']=');
readln(c[i]);
end;
 
maxx(c,k,max1);
write('max1=');
writeln(max1);
 
end.

var max:real

Procedure CopyFile(var f,g:text);