Заполнение двухмерного массива

[_PrizraK_]

const
 n=3;
 m=6;
type mas_2=array[1..m] of integer;
mas_1=array[1..n] of mas_2;

procedure vvod(var a,b:integer);
begin
  a:=strtoint(form1.Edt1.Text);
  b:=strtoint(form1.Edt2.Text);
end;

procedure zap_st(var ma_1:mas_2; a,b:integer);
var j:integer;
begin
  randomize;
  for j := 1 to m do
    ma_1[j]:=random(b-a+1)+a;
end;

procedure zapol(var mas:mas_1);
var i:integer;
begin
  for i := 1 to n do
    zap_st(mas[i]);
end;

procedure vyvod (mas:mas_1);
var i,j:integer;
begin
  form1.sgd1.FixedCols:=1;
  form1.SGd1.FixedRows:=1;

  form1.SGd1.ColCount:=m;
  form1.SGd1.RowCount:=n;
  for I := 1 to n do
    for j := 1 to m do
      form1.SGd1.Cells[j,i]:=Inttostr(mas[i][j]);
end;
{$R *.dfm}

procedure TForm1.Btn1Click(Sender: TObject);
var c:mas_1;
begin
   zapol(c);
   vyvod(c);
end;

Подчеркивает красным здесь zap_st(mas[i]);
В чём ошибка?

[p51x]

procedure zap_st(var ma_1:mas_2; a,b:integer);

А вы передаете только один параметр.