Создание модели атома (пишет - invalid or function reference)

[Al31]

program Model_At;
uses Crt, Graph;
const Ra=100;
Rc=10;
Re=4;
k=0.5;
Dr=30;
Step1=0.2;
Step=100;
var cx, cy, y, yl, y2, x, x1, x2, x3, y3:integer;
I, I1, I2, I3: real; gd, gm: integer;
begin
clrscr;
gd:=detect; initgraph(gd, gm, 'c\tp7\bgi');
SetTextStyle(0,0,2); OutTextXY(200, 30,'Model atoma');
cx:=GetMaxX div 2;
cy:=GetMaxY div 2;
PieSlice(cx, cy, 0, 360, Rc);
SetColor(Red); SetLineStyle(0, 0, 3);
Line(cx-7, cy, Line(cx,cy-5, cx, cy+5);
SetLineStyle(0.0.1); SetFillStyle(1, 1);
I:=Pi/4;
I1:=-Pi/4; I2:=-Pi/2; I3:=Pi/2;
SetTextStyle(0, 0, 1);SetColor(yellow);
OutTextXY(180, 420,'otmena');
While not KeyPressed do
begin
x:=Round (Ra*cos(I)) +cx; Y:=Round (k+Ra*sin(I)) +cy;
x1:=Round((Ra+Dr)*cos(I1))+cx; y1:=Round (k*(Ra+Dr)*sin(I1)) +cy;
x2:=Round((Ra-Dr)*cos(I2)) +cx; y2:=Round (k*(Ra-Dr)*sin(I2)) +cy;
x3:=Round((Ra-Dr)*cos(I3)*2.3) +sx; y3:=Round (k*Ra-Dr)*sin(I3)*2.3) +cy;

SetColor(1);
Circle (x, y, Re); PutPixel(x, y, 2);
Circle (x1, y1 Re); PutPixel(x1, y1, 2);
Circle (x2, y2, Re); PutPixel(x2, y2, 2);
Circle (x3, y3, Re); PutPixel(x3, y3, 2);
Delay(Step);
SetColor(0);
Circle (x, y, Re); PutPixel(x, y, 2);
Circle (x1, y1 Re); PutPixel(x1, y1, 2);
Circle (x2, y2, Re); PutPixel(x2, y2, 2);
Circle (x3, y3, Re); PutPixel(x3, y3, 2);
I:=I+Step1; I1:=I1-Step1; I2:=I2+Step1; I3:=I3+Step1;
end;
CloseGraph;
end.

[Ezhik Kihze]

 y3:=Round (k*Ra-Dr)*sin(I3)*2.3) +cy;

Считаем скобки...

П.С. На будущее: компилятор даже пишет строку, где ошипки

[Al31]

спасибо)
Исправил ещё 2 ошибки, вылезло unknown error и показывает на это:
x1:=Round((Ra+Dr)*cos(I1))+cx; y1:=Round (k*(Ra+Dr)*sin(I1)) +cy;

[ViktorR]

У Вас описана переменная:

var cx, cy, y, yl, y2, x, x1, x2, x3, y3:integer;

а в выражении используется:

x1:=Round((Ra+Dr)*cos(I1))+cx; y1:=Round (k*(Ra+Dr)*sin(I1)) +cy;

Не чувствуете разницы?
Стараюсь не использовать символы, которые легко спутать с буквами.

Как-то так ...