сделать чтобы массив передавался в процедуры

const nmax=100;
m = 10;
procedure bb;
var a:array [1..nmax]of integer;
    n,i,j,x,buf:integer;
Begin
repeat
until 10 in [1..nmax];
writeln('Исходный массив:bb');
for i:=1 to 10 do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
for i:=1 to 9 do
 begin
  x:=i;
  for j:=i+1 to 10 do
  if a[j]<a[x] then x:=j;
  buf:=a[i];
  a[i]:=a[x];
  a[x]:=buf;
 end;
writeln('Упорядоченный массивbb: ');
for i:=1 to 10 do
write(a[i]:4);
end;
procedure bubble;
var
arr: array[1..m] of integer;
i, j, k: integer;
begin
randomize;
write ('Исходный массив:bub ');
for i := 1 to m do begin
arr[i] := random(256);
write (arr[i]:4);
end;
writeln; writeln;
for i := 1 to m-1 do
for j := 1 to m-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
write ('Отсортированный массив:bub ');
for i := 1 to m do
write (arr[i]:4);
writeln;
readln
end;
procedure dv;
var a:array[1..100] of integer;
    n,i,j,m,l,r,x:integer;
begin
randomize;
writeln('Исходный массивdv');
for i:=1 to 10 do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
for i:=2 to 10 do
 begin
  x:=a[i];
  l:=1; 
  r:=i; 
  while l<r do 
   begin
    m:=(l+r) div 2; 
    if a[m]<x then l:=m+1 else r:=m;         
   end;
  for j:=i downto r+1 do a[j]:=a[j-1]; 
  a[r]:=x;
 end;
writeln('Отсортированный массивdv');
for i:=1 to 10 do
write(a[i]:4);
end;
begin
writeln;
dv;
writeln;
bb;
writeln;
bubble;
end.

procedure SortBubble(var a: array of Integer; n: Integer);
begin
  . . . 
end;
 
procedure vWrite(const a: array of Integer; n: Integer);
begin
  . . . 
end;

const nMax=100;
type
  TVector = array [0..nMax-1] of Integer;
 
procedure SortBubble(var a: TVector; n: Integer);
begin
  . . . 
end;
 
procedure vWrite(const a: TVector; n: Integer);
begin
  . . . 
end;