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