ПОМОГИТЕ, заранее спасибо

[Olegyshke]

Нужна помощь по вот такому заданию.
Определить структуру, описывающую шар и точку в трехмерном пространстве. И написать программу которая проверяет, находится ли точка внутри заданного шара.
пытался сделать описание окружности по шаблону из книги но, PascalAbc ругается на case пишет ( Встречено 'case', а ожидался идентификатор)

program Luci;
type tFKind = (fPoint,fCir);
fPoint=record
end;
tFigure = record
Coord : troint;
 case kind: tFKind of // хз че ему не нравится
 fCir:(Radius : Integer);


var i:tFkind
   Geometr: array[tFkind] of tFigure;
   x,y,z, x1,y1,z1:integer ;
Begin
case kind:tFKind of 
fCir: begin
Writeln('Введите радиус круга');
readln(Radius);
end;
end.

да и хз правильно начал или нет
И потом хз как написать программу которая проверяет, находится ли точка внутри заданного шара.
заранее спасибо

[Вадим Мошев]

fPoint=record
end;

Вы объявили пустую запись

Надо объявлять так:

record
 имя_поля: тип;
 имя_поля: тип;
...
end;

___

tFigure = record
Coord : troint;

См. выше, как объявлять записи.
___

case kind: tFKind of // хз че ему не нравится
 fCir:(Radius : Integer);

Case в объявлении типов. Здесь вы что хотели написать? Вы уверены, что вы перепечатали правильно?
____

case kind:tFKind of 
fCir: begin

Оператор выбора (case) записывается так:

case x of
	val1: {...};
	val2: {...};
	val3: {...};
end;

_____

Чтобы проверить, лежит ли точка с координатами (x0, y0, z0) внутри шара радиусом R, надо проверить, выполняется ли условие: x0*x0 + y0*y0 + z0*z0 < R*R