З-х звенный манипулятор, В трехмерном пространстве Опции

[Ametist]

От теоретической части, я перешел к решению задачи. Сначала я сделал просто три линии, которые были связаны между собой, и каждая из которых вращалась в полярной системе координат, но такую работу у меня не приняли и приходится начинать все сначала.
И я поставил себе такую задачу: "Построить три октаэдра, которые бы произвольно вращались относительно любых трех осей координат и были свзяны между собой". Пока вопрос такой, у меня не получается построить сам октаэдр..
Код вот...

 
Program izknigi;
uses crt,graph;
type
Vertex=record 
 x,y,z:real;
 End;

Edge=record
 src,dest:integer; 
 End;
Object3D=record
 vertices:array [0..5] of Vertex;
 edges:array [0..11] of Edge;
 xc,yc,zc:real;
 End;
Var
 model:object3d;
 gm,gd:integer;

Procedure LoadObject3D(var X: Object3D);
var
 ff:text;
 Nv,Ne:integer;
 Shape:Object3D;
 i:integer;
Begin
Assign(ff,'D:\oct');
Reset(ff);
Readln(ff,Nv);
For i:=1 to NV do
Readln(ff, Shape.vertices[i].x , Shape.vertices[i].y , Shape.Vertices[i].z);
Readln(ff, Ne);
For i:=1 to Ne do
Readln(ff, Shape.edges[i].src, Shape.edges[i].dest);
Close(ff);
X:=Shape;
End;

procedure ShowShape(Shape: Object3D);
var
 i,Xs,Ys:integer;
 x,y,z:real;
const n=300;
Begin
For i:=0 to High(Shape.edges) do
 Begin
 x:=Shape.vertices[Shape.edges[i].src].x + Shape.xc;
 y:=Shape.vertices[Shape.edges[i].src].y + Shape.yc;
 z:=Shape.vertices[Shape.edges[i].src].z + Shape.zc;
 If abs(z)<0.01 then z:=0.01;
 Xs:= Round(GetMaxX div 2 + N*x/z);   
 Ys:= Round(GetMaxY div 2 + N*y/z);
 MoveTo(Xs, Ys);
 x:=Shape.vertices[Shape.edges[i].dest].x + Shape.xc;
 y:=Shape.vertices[Shape.edges[i].dest].y + Shape.yc;
 z:=Shape.vertices[Shape.edges[i].dest].z + Shape.zc;
 If abs(z)<0.01 then z:=0.01;
  Xs:= Round(GetMaxX div 2 + N*x/z);
 Ys:= Round(GetMaxY div 2 + N*y/z);
 LineTo(Xs,Ys);
 End;
End;
 Begin
 gm:=detect; gd:=1;
 InitGraph(gm,gd,'');
 LoadObject3D(model);
 ShowShape(Model);
 CloseGraph;
 End.

Xs:= Round(GetMaxX div 2 + N*x/z);
Ys:= Round(GetMaxY div 2 + N*y/z);
Все дело умирает на этих вдух строчках, пишет "error 205 Floating point overflow". Вопрос как это исправить, чтобы все работало?
Внутренность тхт файла выглядит вот так...
6
-100 -100 0
-100 100 0
100 100 0
100 -100 0
0 0 -141.42
0 0 141.42
12
0 1
1 2
2 3
3 0
4 0
4 1
4 2
4 3
5 0
5 1
5 2
5 3

[Ametist]

Переделал на вот так...

Program izknigi;
uses crt,graph;
type
Vertex=record
 x,y,z:real;
 End;

Edge=record
 src,dest:integer;
 End;
Object3D=record
 vertices:array [1..6] of Vertex;
 edges:array [1..12] of Edge;
 xc,yc,zc:real;
 End;
Var
 model:object3d;
 gm,gd:integer;

Procedure LoadObject3D(var X: Object3D);
var
 ff:text;
 Nv,Ne:integer;
 Shape:Object3D;
 i:integer;
Begin
 Assign(ff,'D:\oct');
 Reset(ff);
 Readln(ff,Nv);
 For i:=1 to NV do
  Readln(ff, Shape.vertices[i].x , Shape.vertices[i].y , Shape.Vertices[i].z);
 Readln(ff, Ne);
 For i:=1 to Ne do
  Readln(ff, Shape.edges[i].src, Shape.edges[i].dest);
 Close(ff);
 X:=Shape;
End;

procedure ShowShape(Shape: Object3D);
var
 i,Xs,Ys:integer;
 x,y,z:real;
const 
 n=300;
Begin
For i:=1 to High(Shape.edges) do
 Begin
 x:=Shape.vertices[Shape.edges[i].src].x + Shape.xc;
 y:=Shape.vertices[Shape.edges[i].src].y + Shape.yc;
 z:=Shape.vertices[Shape.edges[i].src].z + Shape.zc;
 If abs(z)<0.01 then z:=0.01;
 Xs:= Round(GetMaxX div 2 + N*x/z);
 Ys:= Round(GetMaxY div 2 + N*y/z);
 MoveTo(Xs, Ys);
 x:=Shape.vertices[Shape.edges[i].dest].x + Shape.xc;
 y:=Shape.vertices[Shape.edges[i].dest].y + Shape.yc;
 z:=Shape.vertices[Shape.edges[i].dest].z + Shape.zc;
 If abs(z)<0.01 then z:=0.01;
 Xs:= Round(GetMaxX div 2 + N*x/z);
 Ys:= Round(GetMaxY div 2 + N*y/z);
 LineTo(Xs,Ys);
 End;
End;
 Begin
 gm:=detect; gd:=1;
 InitGraph(gm,gd,'');
 LoadObject3D(model);
 ShowShape(Model);
 CloseGraph;
 End.

Ничего не поменялась.. опять таже ошибка на том же самом месте. Или опять я что-то не так сделал?