Wjeżdżanie obrazu

Witajcie.

Muszę stworzyć program, który będzie mi rysował koła olimpijskie. Z tym sobie już poradziłem, ale muszę jeszcze zrobić coś takiego, że owe koła będą wjeżdżały/wsuwały się na ekran. Mam już coś takiego i nie wiem jak dodać to wsuwanie:

Program Kola_Olimpijskie;
Uses
 CRT, Graph;
VAR
 driver, mode: integer;
 r:integer;
Begin
 driver:= DETECT;
 InitGraph(driver, mode, 'C:\BP\BGI');
Repeat
Begin
 r:=r+1;
 SetColor(blue);
 Circle(200,200,90+r);
 SetColor(white);
 Circle(400,200,90+r);
 SetColor(red);
 Circle(600,200,90+r);
 SetColor(yellow);
 Circle(300,300,90+r);
 SetColor(green);
 Circle(500,300,90+r);
End;
Until r=10;
repeat until keypressed;
CloseGraph;
End.