Проблема в коде с clrscr

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,y1,y2,x,x1,x2,x3,y3:integer; 
I,I1,I2,I3:real; 
d,m:integer; 
begin 
clrscr; 
d:=detect; 
initgraph(d,m,'путь к драйверу'); SetTextStyle(0,0,2); 
OutTextXY(200,30,'Модель атома'); 
cx:=GetMaxX div 2; 
cy:=GetMaxY div 2; 
PieSlice(cx,cy,0,360,Rc); 
SetColor(Red); 
SetLineStyle(0,0,3); 
Line(cx-7,cy,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,'Для отмены нажмите любую клавишу'); 
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)+cx; 
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.