Вот малость исправленный вариант:
Код:
uses crt,graph;
var x0,y0,x1,y1,i,r,gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
r:=y0-100;
i:=0;
repeat
x1:=x0+round(r*sin(i*pi/180));
y1:=y0-round(r*cos(i*pi/180));
setcolor(green);
outtextXY(x1, y1, '%)');
circle(x1,y1,1);
delay(10);
setcolor(0);
circle(x1,y1,1);
if i<361 then inc(i) else i:=0;
until keypressed;
end.
Отличия выделены цветом, но, в принципе, и ваш вариант вполне работоспособен, стоило только указать правильные имена переменных в команде outtextxy()
У вас была выставлена слишком большая задержка - секунда, поэтому вы и не видели результата