procedure venlarge(var v: vector);
var
  i: integer;
begin { venlarge }
  for i:=0 to vdim do senlarge(v[i]);
  v[vdim].l.si:=0;
end { venlarge };