Дин. массив (Delphi)

[MaxRegN]

Как в Делфи реализовать одновременно ручное и рандомное заполнение массива? А то программа только рандомно заполняет. И что сделать, чтобы можно было менять размеры СтринГрида?

Код программы:

type mas=array of integer;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function sred(a:mas;n:integer):real;
var i,k:integer;
begin
k:=0;
result:=0;
for i:=0 to n-1 do
if abs(a[i])<5 then
 begin
  k:=k+1;
  result:=result+a[i]
 end;
if k=0 then result:=0
else result:=result/k
end;  
procedure TForm1.Button1Click(Sender: TObject);
var a:mas;
    n,i,k:integer;
    sr:real;
begin
randomize;
n:=StrToInt(Edit1.Text);
SetLength(a,n);
StringGrid1.ColCount:=n;
StringGrid2.ColCount:=n;
for i:=0 to n-1 do
 begin
  a[i]:=-10+random(21);
  StringGrid1.Cells[i,0]:=IntToStr(a[i])
 end;
sr:=sred(a,n);
Edit2.Text:='Среднее арифметическое элементов по модулю <5='
+FloatToStrF(sr,ffFixed,6,2);
k:=0;
for i:=0 to n-1 do
if a[i]>sr then
 begin
  k:=k+1;
  StringGrid2.Cells[k-1,0]:=IntToStr(a[i]);
 end;
StringGrid2.ColCount:=k;
end;

[BARNEY]

а StringGrid1.ColCount:=lenght(mas) не поможет?