графика в турбо паскаль

[мария71]

мне нужно написать программу выводящую на экран окружность,которая может двигааться и менять цвет под управлением пользователя,но я не знаю как это сделать.помогите пожалуйста

[BDA]

Проверьте:

uses crt,graph;
var
x,y,color,rad:integer;
c:char;

begin
d:=detect;
m:=2;
initgraph(d,m,'c:\bgi');
cleardevice;
rad:=0;
x:=360;
y:=240;
color:=0;
repeat
c:=readkey;
if c='a' then x:=(x+639) mod 640;
if c='d' then x:=(x+1) mod 640;
if c='w' then y:=(y+479) mod 480;
if c='s' then y:=(y+1) mod 480;
if c='o' then color:=(color+14) mod 15;
if c='p' then color:=(color+1) mod 15;
if c='+' then rad:=(rad+1) mod 30;
if c='-' then rad:=(rad+29) mod 30;
cleardevice;
SetColor(color+1);
Circle(x,y,rad+50);
until c=#27;
end.

wasd - движение
op -цвет
-+ - размер окружности