Переделать программу так, чтобы пользователь вводил максимальный размер массива

const n=50;
type arrA=array[1..n] of byte;
     arrNumbers=array[1..9] of byte;
var a:arrA;
    b:arrNumbers;
    count,numb:byte;
procedure randomArr(var a:arrA);
  var i:byte;
  begin
    randomize;
    writeln('Ishodniy massiv');
    for i:=1 to n do
      begin
        a[i]:=random(10);
        write(a[i]);
      end;
    writeln;
  end;
procedure search(a:arrA;var numb:byte;var count:byte);
  var i:byte;
  begin
    for i:=0 to 9 do
      b[i]:=0;
    for i:=1 to n do
      inc(b[a[i]]);
    count:=0;
    for i:=0 to 9 do
      if b[i]>count then
        begin
          count:=b[i];
          numb:=i;
        end;
      end;
procedure output(numb:byte;count:byte);
begin
write('Naibolee chasto vstrechaetsya eliment ',numb,' ',count,' raz');
readln;
end;
begin
randomArr(a);
search(a, numb, count);
output(numb,count);
end.

type arrA=array of byte;
     arrNumbers=array of byte;
var a:arrA;
    b:arrNumbers;
    count,numb:byte;
    n:integer;
procedure randomArr(var a:arrA);
  var i:byte;
  begin
  writeln('Введите размер массива');
  readln(n);
  setlength(a,n);
    randomize;
    writeln('Ishodniy massiv');
    for i:=0 to n-1 do
      begin
        a[i]:=random(10);
        write(a[i]);
      end;
    writeln;
  end;
procedure search(a:arrA;var numb:byte;var count:byte);
  var i:byte;
  begin
  setlength(b,10);
    for i:=0 to 9 do
      b[i]:=0;
    for i:=0 to n-1 do
      inc(b[a[i]]);
    count:=0;
    for i:=0 to 9 do
      if b[i]>count then
        begin
          count:=b[i];
          numb:=i;
        end;
      end;
procedure output(numb:byte;count:byte);
begin
write('Naibolee chasto vstrechaetsya eliment ',numb,' ',count,' raz');
readln;
end;
begin
randomArr(a);
search(a, numb, count);
output(numb,count);
end.