Из точки А вне шара проводятся прямые, имеющие с его сферой единственную общую точку (о таких прямых говорят, что они касаются сферы).

Randomize();
for i:= 1 to 8 do begin
a[i]:=random(1, 10);
if(i mod 2 = 0) a[i] := -a[i];
end;