function vsub(var v1,v2: vector): boolean;
var
  b: boolean;
  n: integer;
begin { vsub }
  b:=true;
  for n:=0 to vdim do if b then b:=ssub(v1[n],v2[n]);
  vsub:=b;
end { vsub };